--
hopalong
Try this, when the input box pops up simply drag to select a range
Set deleterange = Application.InputBox(prompt:="Select a range of cells",
Type:=8)
Mike
Many thanks
--
hopalong
Like this
Set DeleteRange = Application.InputBox(prompt:="Select a range of cells",
Type:=8)
DeleteRange.ClearContents
Mike
Cordially,
Chip Pearson
Microsoft MVP 1998 - 2010
Pearson Software Consulting, LLC
www.cpearson.com
[email on web site]