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
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