How can I edit this macro to exclude 3 sheet names?

[tonywatsonhelp]

Hi Everyone,

I have this macro that resets the fonts on every sheet to black

it works great but I've just realised I don't want it to change the Dashboard sheets,

Is there a way to edit it (or start again if you have better ideas) so that it runs on all sheets unless they contain the word "Dashboard" in there sheet name
so "Master Dashboard" or "Sales Dashboard" etc would be unaffected?

Here's my code

Thanks

Tony

[FONT=Calibri][SIZE=3][COLOR=#000000]Sub Fontcolour()[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    Dim ws AsWorksheet[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    On Error ResumeNext[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]        For Each wsIn ActiveWorkbook.Worksheets[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]    With ws[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Old = ws.Cells(Rows.Count, "A").End(xlUp).Row[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Range("A2:R" & Old).Font.ThemeColor =xlThemeColorLight1[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End With[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]Next[/COLOR][/SIZE][/FONT]
[FONT=Calibri][SIZE=3][COLOR=#000000]End Sub[/COLOR][/SIZE][/FONT]

 

[Kamolga]

Something like

[LEFT][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]Sub Fontcolour()[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]    Dim ws AsWorksheet[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]    On Error ResumeNext[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]        For Each wsIn ActiveWorkbook.Worksheets
If (ws.name<>sheets("Dashboard1").name and ws.name<>sheets("Dashboard2").name and ws.name<>sheets("Dashboard3").name) then[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]    With ws[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]Old = ws.Cells(Rows.Count, "A").End(xlUp).Row[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]Range("A2:R" & Old).Font.ThemeColor =xlThemeColorLight1[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]End With
End if[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]Next[/COLOR][/SIZE][/FONT][/COLOR][COLOR=#333333][FONT=monospace]
[/FONT][/COLOR][COLOR=#333333][FONT=Calibri][SIZE=3][COLOR=#000000]End Sub
[/COLOR][/SIZE][/FONT][/COLOR][/LEFT]

 

[tonywatsonhelp]

Thanks Kamolga,,
Great
Tony

 

[Fluff]

Another option

Sub Fontcolour()
   Dim ws As Worksheet
   For Each ws In ActiveWorkbook.Worksheets
      If Not LCase(ws.Name) Like "*dashboard*" Then
         Old = ws.Cells(Rows.Count, "A").End(xlUp).Row
         ws.Range("A2:R" & Old).Font.ThemeColor = xlThemeColorLight1
      End If
   Next
End Sub