Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim rngFound As Range
On Error Resume Next
With Worksheets("Data").Range("A:A")
Set rngFound = .Find(What:=Me.TextBox1.Value, After:=.Cells(1),
LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False, Matchbyte:=False)
' HOW CAN I FIND THE 1ST EMPTY ("") CELL IN THE rngfound.offset(0,x) ROW ?

' I want to place some Textbox values into the First Blank Cell in the Same
Row as the (RNGFOUND) but do not know how to Add this in.
' Say for instance: 1st Blank Cell in Row: textbxo1.value =
rngfound(0,ISEMPTY).value
' Other code here
Application.ScreenUpdating = True
End Sub

Corey....