Macro for hiding pre-defined columns

Hey all,
I'm updating my workbook to add some more features that would make my workbook more userfriendly.
I'm trying to find a macro that would hide specific combination of columns based on what I want to do when i open this workbook so that i could avoid wasting time to keep tabbing and finish punching the data in lesser time.

To do this i'm planning to make a switchboard page in my first sheet with a list and give them radio buttons:
Full View Unhide all Columns
New Trip Entry Hide columns C,D,E,J,K,L,M,N,Z-AL,AN-AU
Acknowledgement Entry Hide columns E,M,N,S,T,U,V,W,X,Y,Z,AA,AF-AU
Bill Entry ....
Receipt Entry ....
Balance Payment Entry ....
Delay Report ....
Vehicle Running Report ....

I tried recording a macro to do the above but it is unbelievably long and ineffective as it hides all the columns from A to AU. Somehow, I did manage to find something

Private Sub OptionButton2_Click()
Range("A1,C1,F1,H1,J1,K1,L1,M1,N1,O1,P1,Q1,R1,V1,W1,X1").EntireColumn.Hidden = True

End Sub

But the Above code works on the same worksheet as the button is in... and I want it to work on "Datasheet" worksheet

I know I have to add activate sheet code but i dont know the language.
Edit: I just realised there is one more thing that needs to be done before actually hiding columns and that is to unhide all columns.

Please Help.

Thanks And Regards

Mohit

It might be better to attach an example workbook.

This example will work on Sheet3

Private Sub OptionButton2_Click()
Sheet3.Range("A1,C1,F1,H1,J1,K1,L1,M1,N1,O1,P1,Q1,R1,V1,W1,X1").EntireColumn.Hidden = True

End Sub

Thanks!
That was easy as a pie.

I had managed to try the code on my workbook and succeeded day before yesterday evening. But yesterday morning when i tried opening the workbook again i got "file corrupted" error and excel couldnt even recover the file back.
So i decided to redo the whole workbook again (it was really a pain to look at my whole day's work go down the drain cuz excel 2003 got unstable.

Since the website was down the whole day yesterday and i didnt have any reference to the code, i tried writing it again but instead of range I used columns.

But i kept getting some syntax error.
I tried to keep the code

Sheet3.Columns("A1,C1,F1,H1").EntireColumn.Hidden = True

and

Sheet3.Columns("A,C,F,H").EntireColumn.Hidden = True

But both didnt work.

Although since the forum is up and running and i can refer back to it now i'm back to Range and it works I'd still like to know why Column didnt work.

PS: Can the corrupted file be recovered back? I'm not sure if i can attach it here because it got more than 6 mb in size i think.. Although i could upload it to rapidshare and share the link if thats ok.

Thanks and regards
Mohit

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

Thank you.

You refer to columns by their numbers

'Hide Column E
Columns(5).EntireColumn.Hidden = True

or

Columns("5,6").EntireColumn.Hidden = False