Code:
Public Team1 As String
Public Team2 As String
Public Team3 As String
Public Team4 As String
Public Team5 As String
Public Sub AddScores()
Dim TeamNumber As Integer
Dim TeamRow As Integer
TeamRow = 3
For TeamNumber = 1 To 5
## Team & TeamNumber = Sheets("tables").Range("a" & TeamRow)
TeamRow = TeamRow + 1
Next TeamNumber
End Sub
It doesn't like the line that I have indicated with ##
Hopefully you can understand what I am trying to do.