Forms
In Userform1 Private Sub CommandButton1_Click() MyVal = "Sid" UserForm2.Show End Sub In Userform2 Private Sub CommandButton1_Click() MsgBox MyVal End Sub In Module Public MyVal