Executing Userform

[Guest]

I am new to userforms. I have a command button with caption of "Begin New
Order" which clears out form and places cursor in B1. I would like to have
it also call up a userform.

Below is the current code for the command button:
Private Sub CommandButton2_Click()
Range("B1:B3").Value = ""
Range("D6:H8").ClearContents
Range("A13:B90").ClearContents
Range("C13:C90").Value = ""
Range("B1").Select
End Sub

Below is the code for the userform:
Public Sub Stationform()
Dim station As String
Dim crew As String
Dim D As Date
Dim st As New STINFO
st.Show
station = st.txtST.Value
crew = st.txtCrew.Value
D = st.txtDate.Value
Range("B1").Value = station
Range("B2").Value = crew
Range("B3").Value = D
End Sub

How can I call up the userform within the execution of the commandbutton?

Thanks, and Happy Thanksgiving.

Les

 

[Guest]

Private Sub CommandButton2_Click()
Range("B1:B3").Value = ""
Range("D6:H8").ClearContents
Range("A13:B90").ClearContents
Range("C13:C90").Value = ""
Range("B1").Select
StationForm
End Sub


Public Sub Stationform()
Dim station As String
Dim crew As String
Dim D As Date
Dim st As New STINFO
st.Show
station = st.txtST.Value
crew = st.txtCrew.Value
D = st.txtDate.Value
Range("B1").Value = station
Range("B2").Value = crew
Range("B3").Value = D
st.Show
End Sub

would be my guess.

 

[Sandy]

Try,

UserForm1.Show

or whatever the name of your user form is.

Sandy