Selection range

[Admin]

Works only on ActiveSheet

may be..

    With Sheet1
        MsgBox .Range(.Cells(4, 5), .Cells(.Rows.Count, 5).End(3)).Address
    End With

[PcMax]

Hi

Thanks to the suggestion, I thought the undocumented format I used: .Cells(.Rows.Count, 5).End(3)).Address
could create areas selection problems