Solved: Search for first open cell in Row

[Mr.G]

Hi I need to find the first empty cell in a row ...

I first search with this this code down the column.

[vba]Sub Search()
Dim c
For Each c In Range("C:C").Cells
If c = "" Then
c.Select
Exit For
End If
Next
End Sub
[/vba]

So I want to search the ActiveCell row for first empty cell.

Thank you

[Bob Phillips]

[vba]
Sub Search
Cells(1, Activecell.Column).End(xlDown).Offset(1,0).Select
End Sub
[/vba]

[Bob Phillips]

If you REALLY mean row, try

[vba]
Sub Search
Cells(Activecell.Row, 1).End(xlDown).Offset(1,0).Select
End Sub
[/vba]

[Mr.G]

The last one that searches the row gives a Run-time error 1004...

Won't that just select the next cell to the Active Cell?

Lets say that the first cell depending on entries could be in X or A or AB depending on amount of entries. So it should search the whole row until it finds the empty cell.

I am thinking something like..

Cells(Activecell.row) search
If value ="" then
cell.select

Could that be right?
Regards

[Mr.G]

This seems to work
[VBA]Do While ActiveCell.Offset(0, 1) <> ""
ActiveCell.Offset(0, 1).Activate
Loop

ActiveCell.Offset(0, 0).Value = TextBox2 [/VBA]

thanks for the help.