Using Find to select cells matching input variable

Hi,

I'm a bit of a novice when it comes to using VBA and am having difficulty getting the macro to find cells that match a date entered via an input box.

Attached is an example of the file I have started working on. If you click the "Run Balance" button on the Menu sheet it will activate the relevant User Form. Select the "Day" option and enter 30/06/2010 as a date example. The find function doesn't seem to find the date which has been allocated to the variable named Day.

Any assistance is much appreciated.
Thanks.

Hi Nanga;
You have 2 problems with your "Find()"
1. After:=Cells(17,3) - only works if Worksheets("Prim Balance") is the active sheet, but the active sheet is "Menu"
You need to use .Cells(17,1) to line up with your "With Worksheets("Prim Balance").Columns("C:C")"

2. What:= needs to be formatted the same as the formatting of the cells you're looking in.

Replace
        Set Start = .Find(What:=Day, After:=Cells(17, 3), LookIn:=xlValues _
                , LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                MatchCase:=False, SearchFormat:=False)
with this
        '*********************
        Dim r As Range
        Dim s As String

        'Note Cells(17,3) will only work if Active Sheet is Worksheets ("Prim Balance")
        Set r = .Cells(17, 1)
        s = Format(Day, r.NumberFormat)
        Set Start = .Find(What:=s, After:=r ...... )
        '*********************

You're welcome.