This code has been tested and works. I highlight multiple cells by holding
the Ctrl keys while selecting the cells. Had data in 5 different columns
which were non-adjacent.


Sub selectrows()

first = True
For Each cell In Selection
mycolumn = cell.Column
If first = True Then
Lastrow = Cells(Rows.Count, cell.Column).End(xlUp).Row
Set selectedRange = Range(Cells(1, cell.Column), _
Cells(Lastrow, cell.Column))
first = False
Else
Lastrow = Cells(Rows.Count, cell.Column).End(xlUp).Row
Set selectedRange = Union(selectedRange, _
Range(Cells(1, cell.Column), Cells(Lastrow, cell.Column)))
End If

Next cell

selectedRange.Select

End Sub

"hmm" wrote:

I have just selected the non-hidden cells in several non-adjacent columns.
Now I want to select these columns only from row 1 to the maximum occupied
row. How do I do it?