myFilter = InputBox(prompt:="Enter Yes or No")
If myFilter = "" Then
'User did not enter anything or hit cancel
msgbox "Please enter Yes or No",vbinformation
exit sub
End If

With ActiveSheet
.UsedRange.AutoFilter Field:=7, Criteria1:=myFilter
.PageSetup.Orientation = xlLandscape
.PrintOut
.UsedRange.AutoFilter
End With
Range("A1").Select

Thanks,
--
Howard
"Howard" wrote:

This code works but, how can I exit this code if I hit "Cancel" or "OK?"
Field (column) 7 has either a yes or a no in the cell.

With ActiveSheet
.UsedRange.AutoFilter Field:=7, Criteria1:=InputBox(prompt:="Enter
Yes or No")
.PageSetup.Orientation = xlLandscape
.PrintOut
.UsedRange.AutoFilter
End With
Range("A1").Select

Thanks,
--
Howard