In this partial code below I first see what the text is in cell B23 and then
find the matching text in Row 1. I can find the text ok, and its address (in
$C$R value) in row 1, but I don't know how to use that info to select that
cell so that I can use an offset statement to paste values into a Range. I
guess I don't know how to convert the info I have into a Range() expression
so that I can select the cell.

Any solution will be much appreciated



Sub TrySearchMonth(month)

Dim mySearch as Range

' TrySearchMonth Macro
' Macro recorded 4/14/2006 by John C. Flynn
'
Dim userMonth As Range

Set userMonth = Range("B23")


Set mySearch = Rows(1).Find(What:=userMonth.Value, _
After:=Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)

Debug.Print mySearch

If mySearch = userMonth Then
Address = mySearch.Address
End If

Debug.Print Address

End Sub