Double 'For Each Cell' loop range problem

Hi all,

I’m doing a ‘for loop’ within a ‘for loop’ and the range does not change. I can’t figure out why.

I need the variable ColumnB to give me the addresses of column B, but it returns $A$1 and so on.

Thanks for an advice.

Sub Rectangle1_Click()

   For Each Cell In Range("A1:A4")
     
    ColumnA = Cell.Address
    MsgBox ColumnA
            
                For Each Cell1 In Range("B1:B4")
                    ColumnB = Cell.Address
                    MsgBox ColumnB
                Next Cell1
    Next Cell
End Sub