Thread: next column
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
OssieMac OssieMac is offline
external usenet poster
 
Posts: 2,510
Default next column

We meet again oldjay. Could become a habit.

Not really sure of what you want so here are 2 answers depending on the
meaning of your question.

If you mean the cell after the last cell with data and there are no more
cells in row 1 with data then the following finds the blank cell at the end
of the data.

Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Select

If there is likely to be more cells with data after the first blank cell
then the following.

Dim i As Long

For i = 17 To Columns.Count
If IsEmpty(Cells(1, i)) Then
Cells(1, i).Select
Exit For
End If
Next i


--
Regards,

OssieMac