[حل شده] خواندن ادرس از تکست باکس

[rayeagni]

سلام دوستان
کد زیر رو با ضبط ماکرو بدست آوردم، چطور می تونم کد رو تغییر بدم تا آدرس رو از تکست باکس بگیره؟
از این کد برای درج عکس در سلول می خوام استفاده کنم.
با تشکر

Range("A1").Select
    ActiveSheet.Pictures.Insert( _
        "C:\Users\Public\Pictures\Sample Pictures\Chrysanthemum.jpg").Select
    Selection.ShapeRange.Height = 72
    Range("B1").Select

[rayeagni]

Range("B" & j).Select
    ActiveSheet.Pictures.Insert(TextBox1.Value).Select
    Selection.ShapeRange.Height = 20
    Range("B1").Select