Trying to resize a selection

[dudewheresmyvba]

So I have stumbled my way through creating a range that will change with the size of the data I am using, but I am wanting to cut that down some in order to do some formatting. Specifically I want "MyRange" (currently using A1:L17) to not include the top row (1) or the bottom row (17), or the leftmost column (A).

I also need to select that last row and apply separate formatting to it as well.

As I am fairly new to this if there is some explanation to your solution that would be greatly appreciated.

 

[dudewheresmyvba]

Re: Resizing a selection, but offset is not working. Reference error?

Apologies @Joe4 and @RoryA.

As to what exactly is happening. The offset function is not applying any change to my selection. So my format changes apply to the whole A1:L17 not B2:L16 as intended.
Code is:

Range("A1").CurrentRegion.Select
Selection.Name = "MyRange"
Selection.Resize(Selection.Rows.Count + 5, Selection.Columns.Count + 0).Select
Selection.EntireRow.Hidden = False
Selection.Resize(Selection.Rows.Count - 5, Selection.Columns.Count + 0).Select




Dim MyRange As Range
Dim MyRange2 As Range
Dim LastRow As Long

Set MyRange = Range("MyRange")

' Exclude first and last row along with fist column
Set MyRange2 = MyRange.Offset(1, 1).Resize(MyRange.Rows.Count - 2, MyRange.Columns.Count - 1)
MyRange.Select


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
and etc etc

 

[mikerickson]

Re: Resizing a selection, but offset is not working. Reference error?

That code is applying the Offset and Resize to myRange, but putting the borders around Selection.

 

[dudewheresmyvba]

Re: Resizing a selection, but offset is not working. Reference error?

What would be the proper way to fix this?

 

[mikerickson]

Re: Resizing a selection, but offset is not working. Reference error?

Determine the original range.
Set the variable MyRange to that range.
Apply the .Offset and .Resize to MyRange
Put the borders around that.