you can use SendKeys

Range("A1").Copy
Application.SendKeys "^V"
Search = InputBox("Type your search", "Search")

--
天行å�¥ï¼Œå�›å*�以自強ä¸�æ�¯
地勢å�¤ï¼Œå�›å*�以厚德載物

http://www.vba.com.tw/plog/


"Rene Petersen" wrote:

Can anyone help me on this one please.

I am creating a inputbox and I want the default text of the inputbox to be
the text I just copied.

Dim Search
Search = InputBox("Type your search", "Search", CLIPBOARDTEXTHERE)

Thanks,
Rene