You need to set a flag when you have found a name

blnFoundName = false
Sub SuperHighlight()
Dim strName As String
Dim blnFoundName as boolean

blnFoundName = false
strName = InputBox("Type in the name of the sales representative
you wish to be highlighted")

Application.Goto Reference:="FirstDate"
Do Until ActiveCell = "" or blnFoundName = true
ActiveCell.Range("A1:D1").Select
If ActiveCell.Offset(0, 1) = strName Then
Selection.Font.ColorIndex = 3
blnFoundName = true
End If
ActiveCell.Offset(1, 0).Select

Loop
if blnFoundName = false then
msgbox strName & " not Found"
endif

If strName = "" Then MsgBox "User Not Found Re-Type Name"


End Sub


"skattyd" wrote: Sub SuperHighlight()
Dim strName As String

strName = InputBox("Type in the name of the sales representative
you wish to be highlighted")

Application.Goto Reference:="FirstDate"
Do Until ActiveCell = ""
ActiveCell.Range("A1:D1").Select
If ActiveCell.Offset(0, 1) = strName Then
Selection.Font.ColorIndex = 3
End If
ActiveCell.Offset(1, 0).Select

Loop

If strName = "" Then MsgBox "User Not Found Re-Type Name"


End Sub



i'm just starting out with VBA i have to write a code to search through
a database in excel and highlight people in red that you put into the
input box. How can i make it if the persons name is not found come up
with a message box stating so and if it is found to just end. here is
my code so for i just cant figure it out please help!!




--
skattyd
------------------------------------------------------------------------
skattyd's Profile: http://www.excelforum.com/member.php...o&userid=16545
View this thread: http://www.excelforum.com/showthread...hreadid=313946