userform a başlık ekleme

[umitumit]

herkese kolay gelsin arkadaşlar;
userformun başlığının hücrede yazan olmasını istiyorum.
bunun için aşağıdaki kodu yazdım ama çalıştıramadım...
userform4 açılıyor ama hücre içinde yazan yazı başlık olmuyor.
acaba nerede hata yaptım?

Private Sub commandbutton1_click()
UserForm4.Caption = Sheets("üretim").Range("s1").Text
Load UserForm4
UserForm4.Show
End Sub

 

[metinozlu]

örnek çözüm ektedir.

 

[umitumit]

Teşekür ederim