Run Macro on multiple worksheets

B

biyi11

Hello,

I am trying to create a macro to run on all worksheets within a tab. S
far it is only running on one worksheet and it does not work on other
Can someone please assist me. Below is the code I used. Thank you

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet1" Or ws.Name <> "Sheet2" Then
Columns("F:H").Select
Range("H1").Activate
Selection.EntireColumn.Hidden = True
End If

Next ws.Activate
End Su
 
C

Claus Busch

Hi,

Am Sat, 27 Apr 2013 15:21:40 +0100 schrieb biyi11:
I am trying to create a macro to run on all worksheets within a tab. So
far it is only running on one worksheet and it does not work on other.
Can someone please assist me. Below is the code I used. Thank you

try:
Sub Test()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Sheet1" And ws.Name <> "Sheet2" Then
ws.Columns("F:H").Hidden = True
End If
Next
End Sub


Regards
Claus Busch
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top