Private Sub Membership_E_mail_List_Click()
On Error GoTo Err_Membership_E_mail_List_Click

    Dim stDocName As String

    stDocName = "Oregon Lunar Society Member E-Mail List"
    DoCmd.OpenReport stDocName, acPreview

Exit_Membership_E_mail_List_Click:
    Exit Sub

Err_Membership_E_mail_List_Click:
    MsgBox Err.Description
    Resume Exit_Membership_E_mail_List_Click
   
End Sub
