Dim rng as Range
On Error Resume Next
set rng = Application.InputBox("Select column with mouse",Type:=8)
On Error goto 0
if rng is nothing then
msgbox "You cancelled"
exit sub
End if
rng.EntireColumn.select
msgbox "You selected " & rng.EntireColumn.Address(0,0)

--
Regards,
Tom Ogilvy

"DKY" wrote in message
...

I'm sure this website alone has examples of these and maybe I'm just
using the wrong search terms. I need to put, in the middle of my
macro, a box that pops up and lets you pick a column, whether from a
drop down or just a simple text box itself. I can't find any exaples
of textboxes though. Help?


--
DKY
------------------------------------------------------------------------
DKY's Profile:
http://www.excelforum.com/member.php...o&userid=14515
View this thread: http://www.excelforum.com/showthread...hreadid=385000