hente data fra celle til en Textbox

Sidder lige og bøvler med at få hentet nuværende indtastninger (et navn) fra  en celle i excelarket vist i UserForm2, hvor der er en tekstbox (NameBox1)

Men der fremkommer intet i tekstboksen.

Mit forsøg ser således ud ;

Private Sub NameBox1_Change()
  Me.NameBox1.Value = ActiveWorkbook.Sheets("Ark1").Cells(6, 2)
End Sub

Der kan påløbe yderligere spørgsmål senere ; og point vil blive sat op i takt hermed ;o)