Copy selection Problem

[JC2710]

Hi

I am trying to copy a selection from one sheet to another.

When a user selects two entire rows that are seperate (eg row 4 and row 10) I want to copy them to a new sheet but only copy columns 3 to 7 of the rows.

Am having problems. It only seems to copy first row of selection.

Any ideas?

Thanks

 

[Andrew Poulsom]

This worked for me:

Sub Test()
    Dim r As Range
    Dim Rng As Range
    With Selection
        For Each r In .Rows
            If Rng Is Nothing Then
                Set Rng = r.Cells(1, 3).Resize(, 5)
            Else
                Set Rng = Union(Rng, r.Cells(1, 3).Resize(, 5))
            End If
        Next r
    End With
    Rng.Copy Worksheets("Sheet2").Range("A1")
End Sub

The code does not check that entire rows are selected.

 

[JC2710]

Thanks Andrew!

Worked like a dream!