Hi @TMShucks, thank you for taking the time to reply to my post, and my apologies for the typo.
The original code should have been:
Sub MonthlyFormat()
Dim LastRow As Long
Dim ws As Worksheet
Const StartRow As Long = 5
For Each ws In Worksheets(Array("Monthly Direct", "Monthly Enhancements", "Monthly Indirect", "Monthly Overheads", "Monthly Projects"))
With ws.Range("B2")
.Value = "Monthly Actuals Used"
End With
With ws.Range("B3")
.Value = Evaluate("EoMonth(Today(), -2) + 1")
.NumberFormat = "mmm yy"
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 37
With .Font
.Name = "Lucida Sans"
.Bold = True
.Size = 10
End With
End With
With ws.Range("B2, B5, G5")
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 11
With .Font
.Name = "Lucida Sans"
.Bold = True
.Size = 11
.ColorIndex = 2
End With
End With
If ws.Value = Array("Monthly Direct", "Monthly Indirect", "Monthly Overheads") Then
With ws.Range("B7:D7, G7:K7")
.HorizontalAlignment = xlCenter
.Interior.ColorIndex = 37
With .Font
.Name = "Lucida Sans"
.Bold = True
.Size = 10
End With
End With
End If
Next ws
End Sub
All the best and kind regards
Bookmarks