See if this works:

Sub Test()
Dim R As Range
Dim Msg As String
Msg = "Yo da man"
On Error Resume Next
Set R = Application.InputBox( _
"Click where you want the message:", _
Type:=8)
If R Is Nothing Then Exit Sub
R.Value = Msg
End Sub

--
HTH. Best wishes Harald
Followup to newsgroup only please

"mmcintire" skrev i melding
...
Using Excel 2000. I am trying to create a macro to cut information from
an open worksheet and insert that information into another worksheet within
the same workbook. I can't figure out how to get the macro to prompt me for
which worksheet I want to insert the information into.