You could try
Sub ColSelect
Dim Col1St As String
Dim Col1Fin As String
Dim Col2St As String
Dim Col2Fin As String
Col1St = "H"
Col1Fin = "H"
Col2St = "A"
Col2Fin = "F"
Range(Col1St & ":" & Col1Fin & "," & Col2St & ":" & Col2Fin).Select
End Sub

Or are you trying to record what someone selects?

"Cesar Zapata" wrote in message
...
Hi,

this looks easey but is 3:45 PM and I dont think to well after 3:00 pM :)

what I'm trying to is to select columns.

Range("H:H,A:F").Select this is what the macro recorded does but the
HH
can change anytime so I'm trying to it with VBA like this:

col = ActiveCell.EntireColumn.Address

Range("ActiveCell.EntireColumn.Address,A:F").Selec t

or

range(activecell.column,"A:F").select this selects all the columsn from
A,F to whater the acticell is but it does not jump.

for example if I just want to select A:F and AZ it does not work.


can you please help?


Thanks


cesar


'