Try this in a macro:

Sub CopyUserSelectedCells()
Dim mySelection as Range
Set mySelection = Selection 'Assigns the current user selection,
'even if it's multiple non-contiguous cells
For Each C In mySelection
'copy each cell here to wherever you want
Worksheets("Name of new sheet").Range("Cell to copy to") = C
Next
End Sub


TH

On 4/21/04 16:06, in article , "James"
wrote:

Hi

How can I copy Multiple Selection selected by user to copy
to a new sheet using VBA. Excel 2002, win 2k
Please advise

Thanks a lot
James