indirect - vba

[sakfenanat]

selam arkadaşlar

indirect formülüne benzer bir uygulamayı vba yoluyla yapmaya çalışıyorum.

aşağıdaki kodda yer alan "311211" sheet ismini bir hücreye linkleyip, hücre güncellendiğinde vba kodunun da hücredeki text i kullanmasını ve güncel sheet'ten data okumasını sağlamaya çalışıyorum.

vba formülünü linkleyeceğim hücre "summary" isimli sheetin "b53" hücresi

bu işlemi nasıl yapabilirim?

-----------------
Sub ComplileData()

With Sheets("311211")
.Range(.Range("f4"), .Range("L4999").End(xlUp)).Copy

End With
Sheets("summary").[d65536].End(xlUp)(2).PasteSpecial Paste:=xlValues

End Function
-----------------

teşekkürler

 

[Orion1]

diyelimki sheet adı sayfa1de a1 hücresinde

With Sheets(sheets("Sayfa1").range("A1").value)