Greetings,
I have a sub I have been working on for a while. It works beautifully on the first section of my spreadsheet, but not on any subsequent sections.
I am working with an antiquated report our accounting system spits out.
I need to look for the first instance of a value, ("STATE END") in column A, starting at the row I have defined with my input box ("CurrRow") and searching to the bottom of the worksheet.
The line that is not working for me is "Set uRange = Activesheet.UsedRange"
Everything else works great.
Here is what I have:
' Run the Input Box.
Response = Application.InputBox("Enter the Starting Row Number as an Integer.", _
"Number Entry", , 250, 75, "", , 1)
' Check to see if ESC was pressed.
If Response <> False Then
' If not, write the number to the variable.
CurrRow = Response
End If
'Determine End of Range
Set uRange = ActiveSheet.UsedRange
Set FindTitle = uRange.Find("STATE END")
If FindTitle Is Nothing Then
MsgBox ("Sorry! No keyword title is found")
Else
tRow = FindTitle.Row
tCol = FindTitle.Column
End If
Please help!!!
Bookmarks