VBA - Input Box

[Puppies72]

Hi all,

I am using the following code to get a number from the user.

Sub UserInput()
Dim i As Variant
InputBoxInit:
    i = Application.InputBox(Prompt:="Generate Player Report for Player?", Title:="Enter Player Number", Type:=1)
    If IsNumeric(i) Then
        If i >= 1 And i <= 15 Then
            Sheets("Report Test").Range("I1").Value = i
        Else
            MsgBox "Please enter a value between 1 and 15."
            GoTo InputBoxInit
        End If
    End If

I need to change cells in several sheets to this value - how do I do it? The same cells will always be the one changed I just need to change the value to whatever the user entered e.g. Validator!C2, Economics!B1 both need to be changed to the entered value

As always help appreciated!

 

[Datsmart]

Just add the additional Sheets/Ranges like this:

Sub UserInput()
Dim i As Variant
InputBoxInit:
    i = Application.InputBox(Prompt:="Generate Player Report for Player?", Title:="Enter Player Number", Type:=1)
    If IsNumeric(i) Then
        If i >= 1 And i <= 15 Then
            Sheets("Report Test").Range("I1").Value = i
            Sheets("Validator").Range("C2").Value = i
            Sheets("Economics").Range("B1").Value = i
        Else
            MsgBox "Please enter a value between 1 and 15."
            GoTo InputBoxInit
        End If
    End If
End Sub

 

[Puppies72]

Brilliant thank you - didn't think it could be that simple!