Hello. This code loops through my worksheets but I want it to ignore the sheet called Master. How can I do this?
Sub men()
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For I = 1 To WS_Count
Worksheets(I).Activate
Range("B3:B8").Select
Selection.Copy
Range("B29:B35").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("B38:B43").Select
Selection.PasteSpecial Paste:=xlPasteValues
Range("B35") = "Sum of Monthly Claims"
Range("B35:O35").Font.Bold = True
Range("B44") = "Total Claims"
Range("B44").Font.Bold = True
Range("C29:O34").Formula = "=C12*C3"
Range("C35:O35").Formula = "=SUM(C29:C34)"
Range("C38:C43").Formula = "=C20*C3"
Range("C44").Formula = "=SUM(C38:C43)"
Next I
End Sub
Bookmarks