Hi everyone,

I have a sheet where column one is a number from one to whatever.
In columns two to seven I have a number in each cell.
What I would like to do is, instead of it picking up the number from
column one using the variable GName, use the variable GName as a
counter, so the results will be exactly the same as they are now other
than the GName counter is used instead of it being picked up from the
sheet.

Public Sub Test()
Dim RowData As Range
Dim C As Long
Dim WName As String
Dim WData As String

For Each RowData In ActiveSheet.UsedRange.Rows
With RowData
GName = .Cells(1, 1).Value
GData = ""
For C = 2 To 6
GData = GData & .Cells(1, C).Value & ","
Next C
WData = WData & .Cells(1, 7).Value
Debug.Print "SetGroup" & GName & "," & GData
End With
Next RowData
End Sub

Thanks in dvance.
All the Best.
Paul