无法设置Style类的IncludeBorder属性

Question

使用Google搜索，我发现了下一个代码，仅将边界复制到Excel电子表格中。 但是当我运行它时，它会在第一行得到下一个错误：

  

“运行时错误'1004'：
  无法设置Style类的IncludeBorder属性。

我尝试将其放置在该子项之前的其他位置，但仍然出现相同的错误。我的工作表已激活但未锁定。

Sub copyBorders(lRow As Long, LetCol As String)

   ActiveWorkbook.Styles("Normal").IncludeBorder = False

   Range("B4:B" & lRow & "").Copy
      With Range("" & ColLetter(lCol - 1) & "4:" & ColLetter(lCol - 1) & "" & lRow & "").Offset(20)
        .PasteSpecial -4122
        .Style = "Normal"
       End With

   ActiveWorkbook.Styles("Normal").IncludeBorder = True
End Sub

我希望能够正常运行，因为找不到哪个可能是错误。