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