VBA input box help

[FootBallBat]

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

 

[FootBallBat]

.


Would it make more sense, when the user click on the "Grandpa" button, 'Grandpa" is automatically entered in Cell A1 on the other sheet ?

Can I then presume you want the other player names, as they appear on the buttons on the first sheet should be added to the second sheet, below Grandpa ?

Not exactly what I'm looking for but I can make that work. I can just hide the cells I put the info in.
How could I add that to the code to have the name placed in cell A1 on the sheet (Play)?

 

[Logit]

.

Sub CommandButton1_Click()
    Dim Player1 As Variant
    Player1 = InputBox("Enter Player 1")
    ActiveSheet.CommandButton1.Caption = Player1
    ActiveSheet.CommandButton1.BackColor = 49151
    Sheets("Play").Range("A1").Value = Player1
End Sub

 

[FootBallBat]

.

Sub CommandButton1_Click()
    Dim Player1 As Variant
    Player1 = InputBox("Enter Player 1")
    ActiveSheet.CommandButton1.Caption = Player1
    ActiveSheet.CommandButton1.BackColor = 49151
    Sheets("Play").Range("A1").Value = Player1
End Sub

Works great, Thank you

 

[Logit]

.
You are welcome.