Hi June
My apologies.
Put this down to my age but I have now solved my problem.
I had forgotten to specify the criteria and this now works just great:-
Code:
Private Sub cmdLoadSheet_Click()
10 On Error GoTo cmdLoadSheet_Click_Error
20 If Me.Dirty Then Me.Dirty = False
30 DoCmd.OpenReport "rpt_JobLoadSheet", acPreview, , "[Selected] = True"
40 On Error GoTo 0
50 Exit Sub
cmdLoadSheet_Click_Error:
60 MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdLoadSheet_Click, line " & Erl & "."
End Sub