Sub UsingCells()
Dim rg As Range
Dim nRow As Integer
Dim nColumn As Integer
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
For nRow = 1 To 10
For nColumn = 1 To 10
Set rg = ws.Cells(nRow, nColumn)
rg.Value = rg.Address
Next
Next
Set rg = Nothing
Set ws = Nothing
End Sub