Quote

Option Explicit
Dim base As Integer


Private Sub Baseball_Click()
Dim base As Integer
base = 1
End Sub

Private Sub Basketball_Click()
Dim bask As Integer
bask = 1
End Sub

Private Sub Cancel_Click()

End Sub

Private Sub Foot_Click()
Dim Foot As Integer
Foot = 1
End Sub

Private Sub Games_Click()
Dim Games As Integer
Games = 1
End Sub

Private Sub ok_Click()
MsgBox (base)
End Sub

Private Sub TV_Click()
Dim TV As Integer
TV = 1
End Sub

Quote (dankmemes1337 @ Aug 11 2016 02:18pm)

See what I'm trying to do here? I don't know how to share the data between subs. For example I want the ok sub to recognize that base = 1. How can I do that?