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


Sub SuperHighlight()
Dim strName As String

strName = InputBox("Type in the name of the sales representativ
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 Su

--
skatty
-----------------------------------------------------------------------
skattyd's Profile: http://www.excelforum.com/member.php...fo&userid=1654
View this thread: http://www.excelforum.com/showthread.php?threadid=31394