Macro to Hide Columns

[bfeller]

I have a spreadsheet containing numerous worksheets. Within three of these worksheets, I would like to create a macro to hide 2 columns (all the same columns, F & H). The macro I've created so far is deleting way too many columns and so I'm obviously doing something wrong. Anyone have a suggestion for a macro to make this work?

Eventually I would like to also add a "print" function to the macro, but want to get the hide columns thing to work first. Essentially, this is a spreadsheet that goes out to our whole team an everyone prints different stuff and the spreadsheet itself is formatted more for input than output. Therefore, I'm working on inserting a "button" for everyone to push that will clean up the spreadsheet and print the same worksheets.Thanks!

Brian

 

[Scott Huish]

You didn't give any information about what worksheets you wanted to do this with, but in general how about:

Sub test()
Columns(6).Hidden = True
Columns(8).Hidden = True
End Sub

 

[bfeller]

This is the code I ended up with after attempting to record the macro to use:

Sub Hide_Columns()
Sheets("Loans in Closing").Select
Range("F:F,H:H").Select
Selection.EntireColumn.Hidden = True
Sheets("Pipeline").Select
Range("F:F,H:H").Select
Selection.EntireColumn.Hidden = True
Sheets("Closed Loans - NEW").Select
Range("F:F,H:H").Select
Selection.EntireColumn.Hidden = True
End Sub

This is the one that hides too many rows.

 

[Tazguy37]

Okay, since we have worksheet names now, try:

Dim ws As Worksheet

    For Each ws In Worksheets(Array("Loans in Closing", "Pipeline", "Closed Loans - NEW"))
        ws.Range("E:E,H:H").EntireColumn.Hidden = True
    Next ws

Hope that helps!

 

[bfeller]

Seems to work perfect Tazguy....thanks!