Search cell by cell

Posted by Chris on April 25, 2001 1:48 PM

I am trying to find a way to go cell by cell horizontaly to find a cell that is empty and placing a cell from another worksheet in its place.

Posted by Dave Hawley on April 25, 2001 4:15 PM

Hi Chris

Try this

Sub RightToLeft()
Dim Mytext As String
Mytext = Sheet1.Range("A1")
Sheet2.Rows(2).End(xlToRight).Offset(0, 1) = Mytext
End Sub

Dave

OzGrid Business Applications