The macro recorder is very useful but it records literally what you have done as you have discovered. Try this instead.
Dim FindMe, Found As Range
FindMe = ActiveCell.Value
Set Found = Sheets("Orders raised").Cells.Find(What:=FindMe)
If Found Is Nothing Then
MsgBox FindMe & " not found", vbExclamation
Application.Goto reference:=Found, scroll:=True