HELP! - Hiding colums Macro

[mobilesuit818]

Hello,
I need to hide several columns (those columns are F, Q, R S, T, U, W, X, and Y) when im finished working a worksheet. There are several worksheets in my workbook.

Can someone help with a macro for this, please?

 

[Smitty]

How's this:

<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> HideColumns()
    <SPAN style="color:#00007F">Dim</SPAN> ws <SPAN style="color:#00007F">As</SPAN> Worksheet
        <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ws <SPAN style="color:#00007F">In</SPAN> ActiveWorkbook.Worksheets
            ws.Range("F:F, Q:Y").EntireColumn.Hidden = <SPAN style="color:#00007F">True</SPAN>
        <SPAN style="color:#00007F">Next</SPAN> ws
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

Just set to False to unhide.

HTH,

Smitty

 

[mobilesuit818]

Thank you
Where do you input this. In what Module?
Also, once I copy and paste, do I need to save?
So what would initiate the Macro or how do I get the macro to work.?

 

[Smitty]

In the VBE just got Insert-->Module and paste the code there.

Yes, you'll need to save the workbook in order to save the code.

As for getting it to work, you can call the macro from the Macro menu, assign it to a keyboard shortcut, draw a Forms button and assign it to that, or tie it to an event.

Smitty

 

[mobilesuit818]

Thanks a lot.

 

[mobilesuit818]

Actually, what would the formula be if I just wanted to use this only on single worksheet in a workbook, instead of the entire workbook?

Is there a macro that I can run to undo it?


Can anyone help me with these?

 

[Smitty]

Sub foo()
  ActiveSheet.Range("F:F, Q:Y").EntireColumn.Hidden = True
End Sub

But you've got your terminology a bit mixed up. The above code will only act on the Active Worksheet, whereas the other will work on every Worksheet in the entire Workbook.

Smitty

 

[mobilesuit818]

All right...I just read the post again., I got it.

Thanks Smitty.

 

[Smitty]

No problem.

Is there a macro that I can run to undo it?

Just copy the macro and rename it, then change "= True" to "= False".

Smitty

 

[mobilesuit818]

Thanks again Smitty.