Store cell addresses in different sheets to an array

[YasserKhalil]

Hello everyone
I have three sheets Sheet1 / Sheet2 / Sheet3
I need to create a variable (array) for the cell addresses of B4 in the three sheets ..
Thanks advanced for any help

 

[Debaser]

May I ask why?

 

[YasserKhalil]

To change the B4 cell addresses in all the sheets (Sheet1 to Sheet3) with the same value

 

[Debaser]

You do not really need an array of addresses so much as an array of sheet names then:

For each vSheet in Array("Sheet1", "Sheet2", "Sheet3")
Sheets(vsheet).Range("B4").Value2 = "your value"
Next

 

[YasserKhalil]

Thanks a lot for help Mr. Debaser for this great and useful help
That's works like charm
But I still need to learn new technique by storing the addresses not the sheets ..
Best Regards

 

[Debaser]

For that I'd store ranges not addresses - for example:

    Dim argCells(1 To 3)      As Excel.Range
    Dim n                     As Long

    For n = 1 To 3
        Set argCells(n) = Sheets("Sheet" & n).Range("B4")
    Next n

 

[jindon]

Sub test()
    Dim e
    For Each e In [index("sheet"&row(1:3)&"!b4",,)]
        Evaluate(e) = "Blahblah"
    Next
End Sub

 

[YasserKhalil]

Thank you very much for both of you Mr. Debaser and Mr. Jindon
You are great people .. every day I learned a lot and a lot from you
Thanks a lot for this great support
Best and kind regards