Looking to put "std" width borders on all but outside edges of range
which should be "heavy"
Getting stuck identifying the "variable" range.

Fixed Columns: B3 thru F3
Variable Rows: Any possible number

I got:

LastRow = Worksheets(1).Cells(Rows.Count, "E").End(xlUp).Row
Range ("B3:G" & LastRow) <<<<<<< Comes up as "COMPILE ERROR"



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

With Selection.Borders(xlEdgeLeft)

You left off the select on the range statement

Range ("B3:G" & LastRow).select

"BEEJAY" wrote:

> Looking to put "std" width borders on all but outside edges of range
> which should be "heavy"
> Getting stuck identifying the "variable" range.
>
> Fixed Columns: B3 thru F3
> Variable Rows: Any possible number
>
> I got:
>
> LastRow = Worksheets(1).Cells(Rows.Count, "E").End(xlUp).Row
> Range ("B3:G" & LastRow) <<<<<<< Comes up as "COMPILE ERROR"
>
>
>
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
>
> With Selection.Borders(xlEdgeLeft)
>

Based on the rest of your code you probably want to select that range. So
just add the .select at the end something like this...

Range("B3:G" & LastRow).select
--
HTH...

Jim Thomlinson


"BEEJAY" wrote:

> Looking to put "std" width borders on all but outside edges of range
> which should be "heavy"
> Getting stuck identifying the "variable" range.
>
> Fixed Columns: B3 thru F3
> Variable Rows: Any possible number
>
> I got:
>
> LastRow = Worksheets(1).Cells(Rows.Count, "E").End(xlUp).Row
> Range ("B3:G" & LastRow) <<<<<<< Comes up as "COMPILE ERROR"
>
>
>
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
>
> With Selection.Borders(xlEdgeLeft)
>

Gentlemen:
Thanks for the prompt response.
I'll just go and wipe the egg off my face now!!!

"Jim Thomlinson" wrote:

> Based on the rest of your code you probably want to select that range. So
> just add the .select at the end something like this...
>
> Range("B3:G" & LastRow).select
> --
> HTH...
>
> Jim Thomlinson
>
>
> "BEEJAY" wrote:
>
> > Looking to put "std" width borders on all but outside edges of range
> > which should be "heavy"
> > Getting stuck identifying the "variable" range.
> >
> > Fixed Columns: B3 thru F3
> > Variable Rows: Any possible number
> >
> > I got:
> >
> > LastRow = Worksheets(1).Cells(Rows.Count, "E").End(xlUp).Row
> > Range ("B3:G" & LastRow) <<<<<<< Comes up as "COMPILE ERROR"
> >
> >
> >
> > Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> > Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> >
> > With Selection.Borders(xlEdgeLeft)
> >