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...