tiredofit
Well-known Member
- Joined
- Apr 11, 2013
- Messages
- 1,834
- Office Version
- 365
- 2019
- Platform
- Windows
I am trying to ask the user to enter a string to find.
I am trying to capture the response but it fails on the last line.
How can I correct it?
Thanks
EDIT SORTED:
Code:
Dim Response As String
Response = Application.InputBox(Prompt:="Enter a value", Type:=2)
Dim Found As Range
Set Found = Sheet1.Range("A1:A100").Find Response
I am trying to capture the response but it fails on the last line.
How can I correct it?
Thanks
EDIT SORTED:
Code:
Set Found = Sheet1.Cells.Find(What:=Response, After:=Sheet1.Cells(1, 1), _
LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False)
Last edited: