Hello all,

I am having difficulties trying to find the combobox value across Row A then
goto the first empty cell in that column. Can't get past the first hurdle.

Private Sub ComboBox6_Change()
Dim myvalue As String
myvalue = ComboBox6.Value
Range("A").Select
Range("A").Value = Rows("A" & TheRow).find(What:="myvalue", LookAt:=xlWhole)
If found = True Then
Cell.Select
End If

End Sub

Thanks in advance for any guidance.

--
Brian McCaffery