Creating Msg. Box
 

Hello!

I am trying to determine if there a value ("ADD") doesn't exist in the
sheet, to end the macro and have a box that says "You must note an Add
line, stupid."

Any ideas?

All I have at this point is a macro that I recorded that will find
"add"


Do
If Cells.Find(What:="add", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate = False

Thanks Everyone!

Creating Msg. Box
 

Dim Findnot As Object
Cells.Select
Set Findnot = Selection.Find(What:="Add", After:=ActiveCell,
LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False)
If Findnot Is Nothing Then
MsgBox "You must note an ADD line stupid."
End
End If


wrote in message
oups.com...
Hello!

I am trying to determine if there a value ("ADD") doesn't exist in the
sheet, to end the macro and have a box that says "You must note an Add
line, stupid."

Any ideas?

All I have at this point is a macro that I recorded that will find
"add"


Do
If Cells.Find(What:="add", After:=ActiveCell,
LookIn:=xlFormulas, LookAt:=
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:=False _
, SearchFormat:=False).Activate = False

Thanks Everyone!