This works for me.
Private Sub CommandButton1_Click()
'
' Findin_B Macro
'
'
Dim xyz As String
ActiveCell.Select
xyz = ActiveCell.Value
Cells.Find(What:=xyz, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
End Sub