Add multiple sheets in VBA code. Hopefully really simple

[GaryG9595]

Hello,
I am creating hundreds of sheets from a pivot table (seperate macro) and need to delete column A in all of them but the pivot table, and three other sheets. And as a bonus, any way to convert the hundred sheets from a table to a range in the same macro?

I have this code in a macro which works great for the one sheet.
If ws.Name <> "1-ScoreCard" Then

I need to add 3 more sheets to ignore. Sorry, still learning the codes. I tried
If ws.Name <> "1-ScoreCard", "Sheet13", "Sheet14", "Sheet15" Then
That obviously didn't work.

This is the whole Macro.

Sub AutoFit()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "Sheet13" Then

ws.Columns("A:A").Delete


ws.Select
Range("E2").Select
ActiveWindow.FreezePanes = True

End If
Next ws

End Sub

Thanks,
Gary

 

[mrshl9898]

Try

If ws.Name <> "1-ScoreCard" and ws.Name <> "Sheet13" and ws.Name <> "Sheet14" and ws.Name <> "Sheet15" Then

*May need Or instead of And, one of those things I continually bugger up for some reason haha

 

[GaryG9595]

Thank you "And" worked.