like this right?
Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range([160,184,214]).Font.color = vbBlack
Next ws
End Sub
like this right?
Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Range([160,184,214]).Font.color = vbBlack
Next ws
End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks