TextBox1.Text = Range("cell").Value
Public Sub SetClipboardText(ByVal pText As String)
'Allows the user to put some text into the clipboard
Dim d As DataObject
Set d = New DataObject
d.SetText pText
d.PutInClipboard
End Sub