Help with .find with range definition - error: "Method 'Range' of object' _Global failed

Can anyone tell me why i receive an error relating to my defined range "JobList"?

Sub FindJob()

Dim JobList As Range
Dim JobRow As Long, FinalRow As Long
Dim a As String

FinalRow = Cells(rows.Count, 1).End(xlUp).Row
a = "Job I am looking for"

Set JobList = Range(Cells(FinalRow, 2), Cells(13, 2))

JobRow = Range(JobList).find(what:=a, lookat:=xlWhole).Row

If JobRow > 0 Then
MsgBox "Job Found!"
End If

End Sub