If Range("CRITERIA").Value = 0 Then
ans = Msgbox("There is no matching data with your criteria", vbOKCancel)
If ans = vbOK Then
Application.Goto Reference:="Criteriavalues"
Selection.ClearContents
Range("B2").Select
Range("Database").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= Range("Criteria"), Unique:=False
End If
End If


--
HTH

Bob Phillips

"Jen" wrote in message
...
I'm tying to implement a macro which says, if cell A1 = 0 then "Message
Box".
I'm not sure exactly what I'm doing wrong when writing it

I have a spreadsheet set up to do an Advanced Criteria Search. I have
set-up several macro buttons, which once pressed, ask you a question,
prompting you to fill in data. Once you enter the data, your Advanced
Criteria begins to elminate entries not necessary.

I need to implement another macro, this macro once pressed will launch 4
of
those macros above, which prompt for 4 different Advanced Criteria
questions.
In cell "Criteria" (F26) it does a Dcount of the Data and show how many
are
in the list. If this cell "Criteria" = 0, then I need a messages box that
says "There is no matching criteria with your data". Once you select ok,
I
need the Advanced Criteria cleared.

This is what I have, but it doesn't work:

If Range("CRITERIA").Value = 0 Then
InputBox ("There is no matching data with your criteria")
Application.Goto Reference:="Criteriavalues"
Selection.ClearContents
Range("B2").Select
Range("Database").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:= _
Range("Criteria"), Unique:=False
End If