I have the below code, which is working perfactly for me.
However, I want to move the 'Sub Event_Date' from the userform to the actual module.
what ammendments do I need to consider rather than just doing a cut and paste on the code?
Cheers guys


'''''''''''''''''''''''''
'''Send Event Report'''
'''''''''''''''''''''''''
Private Sub CommandButton9_Click()

SendDirect = CheckBox3.Value

Call Event_Date
Call Assign_Event_Paths(EventMonth, EventYear)
Call CheckFilesExistLending

End Sub

''''''''''''''''''''''''
'''Dates for Event''''
''''''''''''''''''''''''
Sub Event_Date()

If UserForm1.TextBox5.Value = "" Then
MsgBox ("Enter Month For Report")
NoRangeDate = True
Exit Sub
Else
NoDate = False
EventMonth = UserForm1.TextBox5.Value
EventYear = UserForm1.TextBox6.Value
End If

If UserForm1.TextBox6.Value = "" Then
MsgBox ("Enter Year For Report")
NoRangeDate = True
Exit Sub
Else
NoDate = False
EventMonth = UserForm1.TextBox5.Value
EventYear = UserForm1.TextBox6.Value
End If

End Sub