Search Column For Value With Merged Cells

I'm trying to search column 1 for the word "STATE".


Dim rFound As Range
On Error Resume Next
With Sheet5
Set rFound = .Columns(1).Find(What:="STATE", After:=.Cells(1, 1), LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False)
debug.print rFound

On Error GoTo 0
If Not rFound Is Nothing Then Application.Goto rFound, True

End With