To briefly describe what I am trying to accomplish, I have a few employees who need to enter their time into a timesheet. The timesheet is by date, employee name, and client number. I have a separate sheet for each client number.

Time is not entered too often, so I just have simple message boxes to call the name, date, and number of hours, then it will enter it into a range. The problem I am having is when trying to determine the column number of the date and row number of the employee. Here is an excerpt of the code. By the way, I am a beginner, so bear with me please.

I am receiving run-time error 1004: unable to get the find property of the range class.

Sub TimeEntry()

    Dim AuditorName As String, AuditorRange As Range, ProvNo As String, InputDate As Date, InputTime As Double, InputRange As Range, DateRange As Range, nCol As Integer, nRow As Integer, dDate As String
    
    AuditorName = InputBox("Enter your name is it appears on the Production Log.", "Associate Name")
    ProvNo = InputBox("Enter the IL provider number.", "Provider Number")
    InputDate = InputBox("Enter the date for which you would like to record time.", "Date")
    InputTime = InputBox("Enter the number of hours to record for this date.", "Hours")
    
    Let Sheets("Time_" & ProvNo).Cells(18, 1).Value = UCase(AuditorName)
    Let Sheets("Time_" & ProvNo).Cells(19, 1).Value = InputDate
    Let Sheets("Time_" & ProvNo).Cells(20, 1).Value = InputTime
    
    Set InputRange = Sheets("Time_" & ProvNo).Range("B1:GA13")
    Set AuditorRange = Sheets("Time_" & ProvNo).Range("B2:B13")
    Set DateRange = Sheets("Time_" & ProvNo).Range("C1:GA1")
    dDate = Format(Sheets("Time_" & ProvNo).Cells(19, 1), "mm/dd/yyyy")
    
'THIS IS WHERE THE PROBLEM OCCURS:
    nCol = DateRange.Find(what:=Range("A19")).Column
    nRow = AuditorRange.Find(what:=Range("A18")).Row
    
    Let Sheets("Time_" & ProvNo).Cells(nRow, nCol).Value = InputTime

End Sub
Any suggestions? Thanks!

By the way, this is in Excel 97.