a,

The line...
If Len(Range("A1") + Len(Range("A2") + Len(Range("A3") = 0
should read...
If Len(Range("A1")) + Len(Range("A2")) + Len(Range("A3")) = 0 Then

I omitted the required ")" in my original post.
Note: Colored text does not always show up, best to not use it.

Regards,
Jim Cone
San Francisco, USA


"anar_baku"

wrote in message

Thanks a lot Jim, the code seems OK but I'm getting a syntax error for
some reason I've copy-pasted the whole code below, any idea what I'm
doing wrong?
Text in Blue - my original Macro
Text in Red - the code you suggested I add

Sub Macro5()
If Len(Range("A1") + Len(Range("A2") + Len(Range("A3") = 0
Then
MsgBox "An entry is required on the worksheet. "
Exit Sub
End If
Range("List").AdvancedFilter Action:=xlFilterInPlace,
CriteriaRange:=Range( _
"Criteria"), Unique:=False
ActiveSheet.Shapes("Button").Select
Selection.Characters.Text = "Show All"
ActiveSheet.Shapes("Button").OnAction = "Macro6"
Range("A7").Select
End Sub


Sub Macro6()
ActiveSheet.ShowAllData
ActiveSheet.Shapes("Button").Select
Selection.Characters.Text = "Search"
ActiveSheet.Shapes("Button").OnAction = "Macro5"
Range("A7").Select
End Sub