That worked perfectly. Thank you so much!

On May 22, 2:03*pm, "Patrick Molloy"
wrote:
Sub username()

* Dim sUsername As String
* * Dim sPrompt As String
* * Dim found As Range
* * sPrompt = "Please enter vendor name"
* * sUsername = InputBox(sPrompt, "Select Name...", "")

* * Sheets("list").Activate
* * Set found = Cells.Find(What:=sUsername, After:=ActiveCell, _
* * LookIn:=xlFormulas, LookAt:=xlPart, _
* * * * SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
* * MatchCase:=False, SearchFormat:=False)
* * If Not found Is Nothing Then
* * * * found.Select
* * Else
* * * * MsgBox "Unable to find " & sUsername

* * End If

End Sub

wrote in message

...



This wouldn't work. Any other ideas? I keep getting an error message.
Note I made an addition to the macro.

* *SORT_DATE
* *SORT_VENDOR

* *Dim sUsername As String
* *Dim sPrompt As String
* *sPrompt = "Please enter vendor name"
* *sUsername = InputBox(sPrompt, sTitle, sDefault)

* *Sheets("list").Select
* *Range("C2").Select
* *Cells.Find(What:=sUsername, After:=ActiveCell, LookIn:=xlFormulas,
LookAt _
* * * *:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
* * * *False, SearchFormat:=False).Select

* *If sUsername = "" Then
* * * MsgBox "You have cancelled the search."
* * * Sheets("welcome").Select
* * * Range("a1").Select

* * * *Exit Sub
* *End If
End Sub- Hide quoted text -

- Show quoted text -