Offset and Resize Selection on multiple cells

[skmerrey]

Hi Everyone,

I'm having trouble with a code, I'm using the below code to offset and resize the selected area from the selected/Active cell. It works perfectly when one cell is selected.

Selection.Offset(0, -7).Resize(1, 16).Select

I need to be able to use this on multiple cells that I select i.e Select H5, then Ctrl, click H8, H16, H19. Then this macro take effect on all four selected cells.

Can anyone help?
Thanks
Shaun

 

[Debaser]

Try this:

    Intersect(Selection.EntireRow, Selection.Cells(1).Offset(0, -7).Resize(1, 16).EntireColumn).Select

 

[skmerrey]

Yay!!, Thanks Works perfectly.