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