Delete selected range

[RW]

Here's the code

Set WshD = ThisWorkBook.WorkSheets("index")
Set RngD = WshD.Range("M65536".End(xlUP)
RngD = RngD.Offset(0,-12).Resize(11,12).Delete

I've also used Select in place of Delete above and then added
Selection.Delete on the next line.
I used the Offset before resize since I read in this forum that Resize
doesn't like negative values.

How do I delete the newly selected range?

[Tom Ogilvy]

Set WshD = ThisWorkBook.WorkSheets("index")
Set RngD = WshD.Range("M65536".End(xlUP)
RngD.Offset(0,-12).Resize(11,12).Delete Shift:=xlShiftUp

--
Regards,
Tom Ogilvy


"RW" <RW@discussions.microsoft.com> wrote in message
news:EAE5D49E-4B3C-431F-A23C-C61041D85166@microsoft.com...
> Here's the code
>
> Set WshD = ThisWorkBook.WorkSheets("index")
> Set RngD = WshD.Range("M65536".End(xlUP)
> RngD = RngD.Offset(0,-12).Resize(11,12).Delete
>
> I've also used Select in place of Delete above and then added
> Selection.Delete on the next line.
> I used the Offset before resize since I read in this forum that Resize
> doesn't like negative values.
>
> How do I delete the newly selected range?

[RW]

Thanks!

"Tom Ogilvy" wrote:

> Set WshD = ThisWorkBook.WorkSheets("index")
> Set RngD = WshD.Range("M65536".End(xlUP)
> RngD.Offset(0,-12).Resize(11,12).Delete Shift:=xlShiftUp
>
> --
> Regards,
> Tom Ogilvy
>
>
> "RW" <RW@discussions.microsoft.com> wrote in message
> news:EAE5D49E-4B3C-431F-A23C-C61041D85166@microsoft.com...
> > Here's the code
> >
> > Set WshD = ThisWorkBook.WorkSheets("index")
> > Set RngD = WshD.Range("M65536".End(xlUP)
> > RngD = RngD.Offset(0,-12).Resize(11,12).Delete
> >
> > I've also used Select in place of Delete above and then added
> > Selection.Delete on the next line.
> > I used the Offset before resize since I read in this forum that Resize
> > doesn't like negative values.
> >
> > How do I delete the newly selected range?
>
>
>