Try something like

With Range("TheName")
.Worksheet.Select
.Worksheet.Cells(1, .Column).EntireColumn.Select
End With


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"Zone" wrote in message
oups.com...
I have a workbook with several worksheets. Each worksheet has many
named ranges (single-cell ranges, all in row 1). I want to specify a
range name and have my subroutine activate the sheet containing the
range name and select the column containing the range name.
Thanks, James