Consolidate 6 Reports Identical Code into Module

[Tom \T\]

I have 6 reports with the same code below. I would like to consolidate them
into 1 module for ease of modification. Can someone describe to me how to
modify the code and call them from their respective Events.

Private Sub Report_Close()
'check to see if form frmEnterCriteria.Visible = False
If Forms!frmEnterCriteria.Visible = False Then
Forms!frmEnterCriteria.Visible = True
End If
End Sub

Private Sub Report_NoData(Cancel As Integer)
Cancel = True
msgbox "No data found for this Report! Please check your Date Range."
End Sub

Any and all help will be appreciated.

- Tom "T"