Try this for column A in the sheet named "Sheet1"

Sub Find_First()
Dim FindString As String
Dim Rng As Range

FindString = "year"

With Sheets("Sheet1").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Rng.Offset(0, 1).Value = Me.cboPeriod.Value
Else
MsgBox "Nothing found"
End If
End With
End Sub


--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"Ingo" wrote in message ...
I don 't have any VBA knowdledge, therefore I'm using a simple macro somebody
wrote to add a user form to my worksheet. The macro looks up the next empty
row on a pre-defined worksheet and writes the user input into a pre-defined
column of the empty row. It looks like this:

'find first empty row in database
lRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row

'copy the data to the database
With ws
.Cells(lRow, 2).Value = Me.cboPeriod.Value

Now I'd like to change the macro so that instead of finding the first empty
row in the database it should find the specific row where it finds let 's say
the text "year" in column 1 and then write back the user input into column 2
of the same row. Thanks for your help!