Proč do schránky? V proceduře lze tento text přiřadit přimo do range:
Range(xy) = ActiveSheet.TextBox1.Text,
nebo ho přiřadit proměnné a pak s touto dále pracovat:
nTbTxt = ActiveSheet.TextBox1.Text
Range(xy) = nTbTxtcitovat
Range(xy) = ActiveSheet.TextBox1.Text,
nebo ho přiřadit proměnné a pak s touto dále pracovat:
nTbTxt = ActiveSheet.TextBox1.Text
Range(xy) = nTbTxtcitovat