as a first step use:


Sub Trythis()

Dim UserRange As Range
Dim UserDestination As Range

On Error Resume Next
Set UserRange = Application.InputBox _
(Prompt:="Select you source data Range", _
Title:="Listen to me:", _
Default:=Selection.Address, _
Type:=8)

On Error GoTo 0
If UserRange Is Nothing Then
MsgBox "Bay Bay!"
End
End If
Set UserDestination = Application.InputBox _
(Prompt:="Select you Destination data Range", _
Title:="Listen to me:", _
Default:=Selection.Cells(1).Address, _
Type:=8)

If UserDestination Is Nothing Then
MsgBox "Bay Bay!"
End
End If

UserRange.Copy UserDestination
End Su

--
Message posted from http://www.ExcelForum.com