Macro to set all sheets font colour to black

[tonywatsonhelp]

Hi Everyone,

I need a macro that can turn the font on every sheet Black but not the first row as this is the headers.
Any Ideas?

Thanks

Tony

 

[Learn Excel in Tamil]

Hi

Please use this code

Sub Fontcolour()


Dim i As Double
For i = 1 To Worksheets.Count
Worksheets(i).Select
Dim lrow As String
Dim Lcol As String
Range("A1").Select
lrow = Range("A10000").End(xlUp).Row
Lcol = Range("XFD1").End(xlToLeft).Address
Lcol = Left(Lcol, 3)


Range("A2:" & Lcol & lrow).Select
Selection.Font.ThemeColor = xlThemeColorLight1
Range("A1").Select
Next


End Sub

 

[tonywatsonhelp]

Thanks Tamil,
this is great

Tony

 

[Yongle]

you could also try this

Sub testit()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
    ws.UsedRange.Offset(1).Font.Color = vbBlack
Next
End Sub