FootBallBat
Board Regular
- Joined
- Jan 26, 2012
- Messages
- 169
On: Sheets("Players") I have a command button, when clicked this runs:
Private Sub CommandButton1_Click()
Dim Player1 As Variant
Player1 = InputBox("Enter Player 1")
ActiveSheet.OLEObjects(1).Object.Caption = Player1
ActiveSheet.OLEObjects(1).Object.BackColor = 49152
End Sub
On: Sheets("Play") I have a command button. When it is clicked I want it to return the inputbox data from Sheets ("Players") to a corresponding cell, lets just say (A1)
If this is possible any help would be great. Thank you
Private Sub CommandButton1_Click()
Dim Player1 As Variant
Player1 = InputBox("Enter Player 1")
ActiveSheet.OLEObjects(1).Object.Caption = Player1
ActiveSheet.OLEObjects(1).Object.BackColor = 49152
End Sub
On: Sheets("Play") I have a command button. When it is clicked I want it to return the inputbox data from Sheets ("Players") to a corresponding cell, lets just say (A1)
If this is possible any help would be great. Thank you