Rename column L on all worksheets except 3 sheets

[thedeadzeds]

Hi Guys,

I'm using the below to change the header of column L in a one worksheet. Is there a way to do this for all sheets except the worksheets named "All", "Lookup" and "Stock"

Thanks

Sub change_header_1()

Sheets("Corporate").Select
Cells(1, 12).Value = "Daysinstock"

End Sub

 

[Joe4]

Try this:

Sub change_header_1()

    Dim ws As Worksheet
    
    For Each ws In ActiveWorkbook.Worksheets
        If (ws.Name <> "All") And (ws.Name <> "Lookup") And (ws.Name <> "Stock") Then
            ws.Cells(1, 12).Value = "Daysinstock"
        End If
    Next ws

End Sub