Windows 10 and not working macro

[AlesD6]

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

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

 

[daverunt]

Hi,

I don't have Windows 10 but try recording a macro and setting those borders manually on a range of cells. That should give you the code you need.