Coding

Dim intXCount As Integer = 1

Dim intYCount As Integer = 1

For intX =1 To intTotalNumberOfCells

Dim strCellText As String = "x : 1"& intXCount & "y:1" & intYCount

intXCount +=1

If intXCount > intNumberOfColumnsRequired Then

intXCount =1

intYCount = 1