Hi Shantanu,

When I got the notification of a reply on this thread I see that my answer
was empty except for the auto sign off so here it is again.

The following loops through columns until it comes to a cell in row 1 that
is blank.

You could use a specific column number in lieu of Columns.Count.

I am not really sure what it is you want to do but hope the example helps to
point you in the right direction.

Sub loopThroughColumns()

Dim c As Long

For c = 1 To Columns.Count
If Cells(1, c) < "" Then
MsgBox "Cell " & Cells(1, c).Address
Else
MsgBox "No more data"
Exit For
End If
Next c
End Sub


--
Regards,

OssieMac