مشکل با انتقال داده ها از شیت به یوزر فرم

[telesate]

با سلام خدمت دوستان می خواستم ببینم در مثال زیر چگونه میتوان اطلاعات 2 سلول را هنگام باز کردن یوزر فرم داشته باشم متشکر میشوم اگه منو راهنمایی کنید

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

کد زیر ار وارد کنید
به جای لیبل از تکست باکس استفاده کردم

Private Sub UserForm_Activate()
TextBox1.Text = Sheet1.Range("d4").Value
TextBox2.Text = Sheet1.Range("e4").Value

End Sub