I need to alter the code in the first sub to where if the option in
the second sub does not filter out any records, then the command
"ActiveSheet.showalldata" will not execute.


Sub ShowAll_Records()

Sheets("Input").Select
ActiveSheet.ShowAllData
End Sub


Sub HideZeros()

Range("Start").Offset(3, 0).CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criti"), Unique:=False
Range("S12").Select
End Sub

With worksheets("Input")
'to remove the filter and the arrows
.AutoFilterMode = False

'or to just show all the data and keep the arrows
If .FilterMode Then
.ShowAllData
End If
End With


You could have ignored the error, too:

on error resume next
ActiveSheet.ShowAllData
on error goto 0



Revenue wrote:

I need to alter the code in the first sub to where if the option in
the second sub does not filter out any records, then the command
"ActiveSheet.showalldata" will not execute.

Sub ShowAll_Records()

Sheets("Input").Select
ActiveSheet.ShowAllData
End Sub

Sub HideZeros()

Range("Start").Offset(3, 0).CurrentRegion.AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange:= _
Range("Criti"), Unique:=False
Range("S12").Select
End Sub

--

Dave Peterson