Macro to run on multiple selected sheets

[danjw_98]

I am trying to get the below macro to run on multiple selected worksheets and can't seem to get it working. Would appreciate any support on this. thanks...

Dim wrkSheet As Worksheet

For Each wrkSheet In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))


lastrow = Range("g65536").End(xlUp).Row
For x = 2 To lastrow

Set rng = Range("A" & x & ":H" & x)

With rng
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlInsideVertical).Weight = xlThin
End With


Next x

 

[VoG]

Try

Dim wrkSheet As Worksheet

For Each wrkSheet In Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    With wrkSheet
    
        lastrow = .Range("g65536").End(xlUp).Row
        For x = 2 To lastrow
        
            Set Rng = .Range("A" & x & ":H" & x)
            
            With Rng
                .Borders(xlEdgeTop).Weight = xlThin
                .Borders(xlEdgeBottom).Weight = xlThin
                .Borders(xlEdgeLeft).Weight = xlThin
                .Borders(xlEdgeRight).Weight = xlThin
                .Borders(xlInsideVertical).Weight = xlThin
            End With
        
        
        Next x
    End With
Next wrkSheet

 

[danjw_98]

that worked...much appreciated!!!