Need help running code in all the worksheets except 4 of then out of 12. Thanks

[pedie]

I have code that was shared by Peter, but i want the code to run on all the worksheets except on Sheets("KData", "HGData","GData","VData")


Thanks for helping!

Sub try1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If ws.Name <> "Home" Then
    'mycode
    End If
Next ws
End Sub

 

[AlphaFrog]

Here's one way it could be done...

Sub try1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    [COLOR="Red"]If InStr("KData HGData GData VData", ws.Name) = 0 Then[/COLOR]
    'mycode
    End If
Next ws
End Sub

 

[jeffreybrown]

As another option you could go with...

Sub try1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets(Array("Sheet1", "Sheet3"))
     'mycode
Next ws
End Sub

 

[pedie]

I tried this way hoping that if sheet.name <> any of these 4 sheets names ("KData", "HGData","GData","VData") then run the code in it...

I want the code to run on all sheets except this four...
I hope i am doing it right but it is not working so far

Sub rtry1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If InStr("KData HGData GData VData", ws.Name) = 0 Then
    'mycode
    Cells(1).Value = "Hi"
    End If
Next ws
End Sub

 

[pedie]

My ignorance sorry..I tried coding it this way and it worked now

Thanks alot!

Have a great weekend!

Sub rtry1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
    If InStr("KData HGData GData VData", ws.Name) = 0 Then
    'mycode
    ws.Cells(1).Value = "Hi"
    End If
Next ws
End Sub