Double 'For Each Cell' loop range problem

[gombi]

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

[Mad-Mizer]

Hi gombi,

Declaring variables will be very helpful as you learn how to code VBA. If you need to know about variable types, I suggest you Google VBA Variable types. As for the code itself, let me know if mine covers what you want. If yes, compare it to yours and think about the differences.

Sub RClick()
    'Declare all Variables here'
    Dim oC As Range, cA As String, cB As String
    Dim wS As Worksheet
    
    'Set the variable wS to be the active sheet
    Set wS = ActiveSheet
    'Loop through the A range and set the addresses to _
    'the String type variables.
    For Each oC In wS.Range("A1:A4")
        cA = oC.Address
        cB = oC.Offset(0, 1).Address
        MsgBox "cA = " & cA & " | cB = " & cB
        'the Immediate window shows displays better when programming, click _
        'view and click Immediate window for debugging.
        Debug.Print "cA = " & cA & " | cB = " & cB
    Next oC
    
End Sub

[Norie]

Try changinging Cell to Cell1 in the inner loop.

Mind you I'm not sure you need 2 loops.

[gombi]

Try changinging Cell to Cell1 in the inner loop.

Thanks a lot! That fixed my issue! :-)