A relative novice with Excel, I use a number of worksheets for recording
amongst other things, when various items of plant and equipment are due for
test and inspection. As an initial experiment (I need to expand it in due
course to do more complicated filters) I have recorded a macro to filter out
items due for test within given dates and print out the result using the
AutoFilter function. Sample data below:

DESCRIPTION        DATE LAST SEEN
Yale Lever Hoist        05/08/04
Yale Lever Hoist        05/08/04
Yale Lever Hoist        06/08/04
Winch Rope        03/02/05

The macro is as follows:

Sub Sort()
'
' Sort Macro
' Macro recorded 23/06/2005 by Tony
'
' Keyboard Shortcut: Ctrl+s
'
   Range("G4").Select
   Selection.AutoFilter
   Selection.AutoFilter Field:=7, Criteria1:=">=23/06/2005",
Operator:=xlAnd _
       , Criteria2:="<=05/08/2005"
   ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
   ActiveSheet.ShowAllData
   Selection.AutoFilter
End Sub

The first time I run the macro it works fine, however if I try to run it a
second time it only prints out the coloumn headings.

I am sure the solution is obvious, but not to me. Can anyone please point me
in the right direction. In the longer term I would like to have “selection”
boxes where I am prompted for the “from” and “to” dates.

Thanks in advance