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
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