I have a userform named RPTFRM w/ a text box named rptDte and a Commad
button named cb1 this is what i have so far...

Private Sub cb1_Click()
Selection.AutoFilter Field:=5, Criteria1:=rptDte.Value
VBAProject.ThisWorkbook.PrintPreview
Selection.AutoFilter
Unload Me
End Sub

Private Sub UserForm_Initialize()
Range("Headers").Select
Selection.AutoFilter
End Sub

When i step through the code it does what i want but locks up after print
preview.
I am trying to get only the information printed defined in the criteria text
box. any help would be great.