Add multiple sheets in VBA code. Hopefully really simple

GaryG9595

New Member
Joined
Jun 13, 2014
Messages
48
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
 

Some videos you may like

Excel Facts

Lock one reference in a formula
Need 1 part of a formula to always point to the same range? use $ signs: $V$2:$Z$99 will always point to V2:Z99, even after copying

mrshl9898

Well-known Member
Joined
Feb 6, 2012
Messages
1,708
Try

VBA Code:
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
 
Solution

Watch MrExcel Video

Forum statistics

Threads
1,126,928
Messages
5,621,642
Members
415,849
Latest member
PhoenixRising2015

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top