VBA code to exclude specific tabs

[Carl C]

Hi

I am trying to have a code to add a header to all tabs except 2 tabs "Control" and "Cover" I am not sure how to insert the code to make this work.

here is my code for the inserting the header

Sub Update_header()
    Dim WS As Worksheet
    Dim HeaderText As String
   HeaderText = "&""Calibri,bold italic""&11" & "&K021128" & strHeader & Format(Sheet1.Range("e19"))
    For Each WS In Worksheets
       WS.PageSetup.RightHeader = HeaderText
  
    Next
End Sub

I hope someone can help me out

Kind Regards
Carl

 

[Fluff]

Hi & welcome to MrExcel.
try

Sub Update_header()
    Dim WS As Worksheet
    Dim HeaderText As String
   HeaderText = "&""Calibri,bold italic""&11" & "&K021128" & strHeader & format(Sheet1.Range("e19"))
   For Each WS In Worksheets
     If WS.Name <> "Control" And WS.Name <> "Cover" Then
        WS.PageSetup.RightHeader = HeaderText
     End If
   Next
End Sub