Need more information.
1. Where is this text box located? What is it's name?
2. 1 Row below what? The found cell?
3. Do you only want to be searching a specific range or the whole entire used range?
FWIW:
Sub Find_Date()
Dim ws1 As Worksheet: Set ws1 = Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = Sheets("Sheet2")
Dim lastrow As Long: lastrow = ws2.Range("A" & Rows.Count).End(xlUp).Row
Dim iFind As Range
Set iFind = ws2.Range("A1:AF" & lastrow).Find(What:=Date, LookIn:=xlValues, Lookat:=xlPart)
If Not iFind Is Nothing Then
iFind.Offset(1, 0).Value = Sheets("Sheet1").TextBox1.Text
End If
End Sub
Bookmarks