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

"Steve" wrote in message
...
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


Presumably FilterCriteria is a variant .... Set is an Object oriented
statement, and Nothing is an Object property. You are returning a text
string, which is not an object. I expect that if you take out the On
Error Resume Next you will get run-time errors that would help you
debug.

Try:
FilterCriteria = Application.InputBox(prompt:= _
"Enter Filter Criteria", Type:=2)
If IsEmpty(FilterCriteria) Then
Exit Sub
End If

You can put the On Error back in after you finish your testing.

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

Right on the money! Thanks Clif!!

On May 25, 5:37*pm, "Clif McIrvin" wrote:
"Steve" wrote in message

...

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

Presumably FilterCriteria *is a variant .... Set is an Object oriented
statement, and Nothing is an Object property. You are returning a text
string, which is not an object. I expect that if you take out the On
Error Resume Next you will get run-time errors that would help you
debug.

Try:
* * *FilterCriteria = Application.InputBox(prompt:= _
* * * * * * "Enter Filter Criteria", Type:=2)
* * * * If IsEmpty(FilterCriteria) Then
* * * * * * Exit Sub
* * * * End If

You can put the On Error back in after you finish your testing.

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)

You're welcome

"Steve" wrote in message
...
Right on the money! Thanks Clif!!

On May 25, 5:37 pm, "Clif McIrvin" wrote:
"Steve" wrote in message

...

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

Presumably FilterCriteria is a variant .... Set is an Object oriented
statement, and Nothing is an Object property. You are returning a text
string, which is not an object. I expect that if you take out the On
Error Resume Next you will get run-time errors that would help you
debug.

Try:
FilterCriteria = Application.InputBox(prompt:= _
"Enter Filter Criteria", Type:=2)
If IsEmpty(FilterCriteria) Then
Exit Sub
End If

You can put the On Error back in after you finish your testing.

--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)




--
Clif McIrvin

(clare reads his mail with moe, nomail feeds the bit bucket :-)