Crie um formulário com um botão de comando (CommandButton1) e uma caixa de texto (TextBox1).
Adicione o código:
Private Sub CommandButton1_Click()
TextBox1 = Sheets("Plan1").Range("E3")
'Alternativamente, você poderia utilizar:
'TextBox1 = Sheets("Plan1").Cells(3, 5)
'Alternativamente, você poderia utilizar também:
'TextBox1 = Sheets("Plan1").Cells(3, "E")
'Alternativamente, você poderia utilizar também:
'TextBox1 = Sheets("Plan1").[E3]
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
