Hi, I have this macro long time and still works on Windows7 and Office 365 but now I get new notebook with Windows 10 and Office 365 and only this macro doesn´t working and show me this error about private function. Can somebody help me?
Runtime error 1004 (something about weight border)
macro stopped on: .Weight = xlThick
Runtime error 1004 (something about weight border)
macro stopped on: .Weight = xlThick
VBA Code:
Private Function doubleLine(aktRange)
Range(aktRange).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlDouble
.ThemeColor = 1
.TintAndShade = -0.499984740745262
[COLOR=rgb(250, 197, 28)] .Weight = xlThick[/COLOR]
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlDouble
.ThemeColor = 1
.TintAndShade = -0.499984740745262
.Weight = xlThick
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlDouble
.ThemeColor = 1
.TintAndShade = -0.499984740745262
.Weight = xlThick
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlDouble
.ThemeColor = 1
.TintAndShade = -0.499984740745262
.Weight = xlThick
End With
End Function