[RESOLVED] Excel VBA: Macro to hide columns not working

[TnTinMN]

But you don't need to select the columns first, so more like this:

Sub hideCols()
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    ws.Range("g1:m1").EntireColumn.Hidden = True
    ws.Range("p1").EntireColumn.Hidden = True
    ws.Range("t1:z1").EntireColumn.Hidden = True
    Set ws = Nothing
End Sub

Bryce you work to hard!

 ActiveSheet.Range("g:m, p:p, t:z").EntireColumn.Hidden = True

Or is it that you get paid by the line?

[IGPOD]

Thanks guys, I'm not sure why my original code wasn't working, I thought they were doing the same thing... do you have any idea why that was?? My original code was performing an entirely different operation than what I was calling for. Maybe it was because there was no Dim'ing?

Either way, I married the two of your codes together, ran it, and it works perfectly.

Here's what I used:

Sub hidecols()

Dim ws As Worksheet
Set ws = ActiveSheet

    Application.ScreenUpdating = False
    
    Call Unhide_Contra_Info
        
    ActiveSheet.Range("g:m,p:p,t:z").EntireColumn.Hidden = True
        
    Range("a1").Select

End Sub

Thanks again.