VBA Find Function

[smartpat19]

HI All,

Working on my first find function. I am trying to return the range. The formatting is dates and I am trying the find what cell the date is in row 7. Right now I am returning nothing.

Sub Retainage_Macro()

Dim proforma As Workbook
Set proforma = ActiveWorkbook
Dim master As Workbook

Dim Current_Month As Range

Set Sht = Sheets("Project Summary")
Set cfs = Sheets("Cash Flow Template")

Start = cfs.Range("E1").Value

Set Current_Month = cfs.Range("7:7").Find(What:=Start, Lookat:=xlWhole, MatchCase:=False)

MsgBox (Current_Month)

Thank you

 

[smartpat19]

Thank you!! This works great! Thank you!

Is there a way to ajdust this to work on columns? say column A?

 

[Norie]

You could change Rows(7) to Columns(1) and reverse things in Cells.

So something like this perhaps.

Res = Application.Match(CDbl(Start), cfs.Columns(1), 0)

If Not IsError(Res) Then
        Set Current_Month = cfs.Cells(Res, 1)
        MsgBox Current_Month.Value
    Else
        MsgBox "Start not found!"   
End If