Find Column Number From Search Pass To Integer Cell Reference

I am building a Workbook which takes data from SheetA and inserts it into SheetB.
Part of the data is only entered when a positive value exists.

I then do an export from SheetB.

The problem is that I need to get the column number and pass it to the cell reference based on the field name in row 1.

Dim sFindstring As String
Dim rFindcell As range
Dim iR As Integer
Dim iC As Integer

sFindString = " Find this string in the cell"
'Using cells find the findstring
Set rFindCell = Cells.Find(What:=sFindString, After:=[A1], LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious)

'OK so look here
iR = 3
'I am trying to pick up the column number
iC = rFindCell.Column

rFindCell throws an object or with block variable not set error. Is there some property that I need to set.