Hi Excel Help,

=============
The second input failed to pull the data; however, I entered your second
recommandation and it worked GREAT! Thanks for the help. !
=============

Perhaps try something like:

Res1 = Application.InputBox( _
Prompt:="Enter first criterion", _
Type:=3, _
Title:="Criterion 1")
Res2 = Application.InputBox( _
Prompt:="Enter second criterion", _
Type:=31, _
Title:="Criterion 3")


If Not Res1 = vbNullString _
Or Not Res2 = vbNullString Then
rng.AutoFilter Field:=1, _
Criteria1:=Res1, _
Operator:=xlOr, _
Criteria2:=Res2
Else
MsgBox Prompt:="No criteria selected!", _
Buttons:=vbCritical, _
Title:="Warning"
Exit Sub
End If

If AutoFilterMode Then
WS.AutoFilter.Range.Copy
'Your code
End If


=============
Any idea or
recommanded sites I can visit for additonal training?
=============


Visit David McRitchie's tutorials page at:

http://www.mvps.org/dmcritchie/excel....htm#tutorials


The VBA material is towards the end of that section



---
Regards.
Norman