How slick it is!...........exactly what I needed.........thank you much, kind
Sir.

Vaya con Dios,
Chuck, CABGx3



"Frank Arendt-Theilen" wrote:

Hi Chuck,
as follows:

Sub Test()
With ActiveSheet
.Range(.Cells(9, ActiveCell.Column), _
.Cells(65536, ActiveCell.Column)).Select
End With
End Sub

Regards
Frank
________________________________________________
Frank Arendt-Theilen, Microsoft MVP Excel
E-Mail: