Hi,

I have a table where Box #'s are in Rows and Dates are in Column. I use the find function to find two cells based on the user input of box # and date. Now that I have these two cell, I want to find where the row and column intersects and allow the user to enter a number there using an input box. Below is what I have so far. I think I need to somehow index the cells, but am not sure how. Can someone please help me? Thank you so much

Sub CashMacro()
Dim strName As String, ws As Worksheet

strName = Application.InputBox("Please enter the month name: i.e. May, June, July", "Enter Month Name")
On Error Resume Next
Set ws = Worksheets(strName)
    
    If Not ws Is Nothing Then 'If the sheet exists then select it
    Sheets(strName).Select.Activate

    Else 'If the sheet does not exist then display error message
    MsgBox ("The sheet doesn't exist or you entered the name incorrectly")

    End If

    
'This is when the user will input Date and Lockbox Number
 Rows("3:3").Select
    Set u = Cells.Find(InputBox("Please Enter Lockbox #: i.e. 4020", "Enter Lockbox #"), _
After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        

    
        
Range("A3:A36").Select
Application.FindFormat.NumberFormat = "m/d/yyyy"
Selection.Find(InputBox("Please Enter the Date: i.e. 03/27/14", "Enter Date"), After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=True).Activate
Screenshot.png