Søgning i Excel

Hvorfor virker det her ikke :

Cells.Find(What:=sPrompt, _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlHole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

når dette virker :

Cells.Find(What:=InputBox("Søg på kundenr.", "Search"), _
After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlHole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Activate

InputBox erstattes af en fast variabel kaldet sPrompt