Hi all,

Any idea why the variable FilterCriteria below is Null? When I step
through the If FilterCriteria in Nothing Then step, it goes to exit
sub. When prompted with the inputbox, I did enter text. Thanks!

On Error Resume Next
Set FilterCriteria = Application.InputBox(prompt:= _
"Enter Filter Criteria", Type:=2)
If FilterCriteria Is Nothing Then
Exit Sub
End If
On Error GoTo 0