How to show blanks cells in this excel macro filter ?any idea?

 
Sub filtername_Click()


Dim crit As String, ws As Worksheet

crit = Application.InputBox("Enter filter text")

For Each ws In ActiveWorkbook.Worksheets

ws.Range("A3:A500").AutoFilter

ws.Columns("A:A").AutoFilter Field:=1, Criteria1:="*" & crit & "*", Operator:=xlAnd

Next ws

End Sub