Help required putting borders around cells.

Can anyone help ?

I need to put border on a number of cells
of which number of rows is unknown.

The first routine below was originally used to find
the number of rows and then fill down the columns.

The 2nd part is a recording of keypresses to ut the
border on the cells.

HOW do I marry the two parts together in order to
put borders inside and around Range ("A3:F" & LastRows)



Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
, Type:=xlFillDefault

----------------------------------------------------------------


Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With



Regards
Centurian.

sheet1.usedrange.select

this will select every single used cell
then just add your border code to the bottom of that

"Centurian" wrote:

> Can anyone help ?
>
> I need to put border on a number of cells
> of which number of rows is unknown.
>
> The first routine below was originally used to find
> the number of rows and then fill down the columns.
>
> The 2nd part is a recording of keypresses to ut the
> border on the cells.
>
> HOW do I marry the two parts together in order to
> put borders inside and around Range ("A3:F" & LastRows)
>
>
>
> Dim LastRow As Long
> With Worksheets("Sheet1")
> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> , Type:=xlFillDefault
>
> ----------------------------------------------------------------
>
>
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> With Selection.Borders(xlEdgeLeft)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeRight)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlInsideVertical)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlInsideHorizontal)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
>
>
>
> Regards
> Centurian.
>

Ben,

I am having problems.

Ran the macro with the suggested alteration
and it halted at:

With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic


I got a Runtime 1004 Error
When debug was pressed
..LineStyle = xlContinuos
was hightlighted in yellow.


For your info, I am running version Excel 97
and the macro is called Sub Macro1()





ben wrote:
> sheet1.usedrange.select
>
> this will select every single used cell
> then just add your border code to the bottom of that
>
> "Centurian" wrote:
>
>
>>Can anyone help ?
>>
>>I need to put border on a number of cells
>>of which number of rows is unknown.
>>
>>The first routine below was originally used to find
>>the number of rows and then fill down the columns.
>>
>>The 2nd part is a recording of keypresses to ut the
>>border on the cells.
>>
>>HOW do I marry the two parts together in order to
>>put borders inside and around Range ("A3:F" & LastRows)
>>
>>
>>
>> Dim LastRow As Long
>> With Worksheets("Sheet1")
>> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
>> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
>> , Type:=xlFillDefault
>>
>>----------------------------------------------------------------
>>
>>
>> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
>> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
>> With Selection.Borders(xlEdgeLeft)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>> With Selection.Borders(xlEdgeTop)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>> With Selection.Borders(xlEdgeBottom)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>> With Selection.Borders(xlEdgeRight)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>> With Selection.Borders(xlInsideVertical)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>> With Selection.Borders(xlInsideHorizontal)
>> .LineStyle = xlContinuous
>> .Weight = xlThin
>> .ColorIndex = xlAutomatic
>> End With
>>
>>
>>
>>Regards
>>Centurian.
>>

try deleting the with statements of the INSIDEHORIZONTAL and INSIDEVERITICAL
borders that may still get you the results you want
delete
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With


"Centurian" wrote:

>
>
>
> Ben,
>
> I am having problems.
>
> Ran the macro with the suggested alteration
> and it halted at:
>
> With Selection.Borders(xlInsideVertical)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
>
>
> I got a Runtime 1004 Error
> When debug was pressed
> ..LineStyle = xlContinuos
> was hightlighted in yellow.
>
>
> For your info, I am running version Excel 97
> and the macro is called Sub Macro1()
>
>
>
>
>
> ben wrote:
> > sheet1.usedrange.select
> >
> > this will select every single used cell
> > then just add your border code to the bottom of that
> >
> > "Centurian" wrote:
> >
> >
> >>Can anyone help ?
> >>
> >>I need to put border on a number of cells
> >>of which number of rows is unknown.
> >>
> >>The first routine below was originally used to find
> >>the number of rows and then fill down the columns.
> >>
> >>The 2nd part is a recording of keypresses to ut the
> >>border on the cells.
> >>
> >>HOW do I marry the two parts together in order to
> >>put borders inside and around Range ("A3:F" & LastRows)
> >>
> >>
> >>
> >> Dim LastRow As Long
> >> With Worksheets("Sheet1")
> >> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> >> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> >> , Type:=xlFillDefault
> >>
> >>----------------------------------------------------------------
> >>
> >>
> >> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> >> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> >> With Selection.Borders(xlEdgeLeft)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeTop)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeBottom)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeRight)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlInsideVertical)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlInsideHorizontal)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >>
> >>
> >>
> >>Regards
> >>Centurian.
> >>
>

try this - UN tested

Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row

.Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
, Type:=xlFillDefault
.range("b3:f" & lastrow).Borders.LineStyle = xlContinuous
end with
End Sub

--
Don Guillett
SalesAid Software
[email protected]
"Centurian" <[email protected]> wrote in message
news:[email protected]...
> Can anyone help ?
>
> I need to put border on a number of cells
> of which number of rows is unknown.
>
> The first routine below was originally used to find
> the number of rows and then fill down the columns.
>
> The 2nd part is a recording of keypresses to ut the
> border on the cells.
>
> HOW do I marry the two parts together in order to
> put borders inside and around Range ("A3:F" & LastRows)
>
>
>
> Dim LastRow As Long
> With Worksheets("Sheet1")
> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> , Type:=xlFillDefault
>
> ----------------------------------------------------------------
>
>
> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> With Selection.Borders(xlEdgeLeft)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeTop)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeBottom)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlEdgeRight)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlInsideVertical)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlInsideHorizontal)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
>
>
>
> Regards
> Centurian.

Ben,
Just for information,
INSIDEHORIZONTAL and INSIDEVERITICAL [sic]

are only valid when you are addressing a contiguous block of cells (rather
than just one).

Same reason the code you posted previously in another thread raises an
error.

--
Regards,
Tom Ogilvy

"ben" <[email protected]> wrote in message
news:[email protected]...
> try deleting the with statements of the INSIDEHORIZONTAL and
INSIDEVERITICAL
> borders that may still get you the results you want
> delete
> With Selection.Borders(xlInsideVertical)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
> With Selection.Borders(xlInsideHorizontal)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
> End With
>
>
> "Centurian" wrote:
>
> >
> >
> >
> > Ben,
> >
> > I am having problems.
> >
> > Ran the macro with the suggested alteration
> > and it halted at:
> >
> > With Selection.Borders(xlInsideVertical)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = xlAutomatic
> >
> >
> > I got a Runtime 1004 Error
> > When debug was pressed
> > ..LineStyle = xlContinuos
> > was hightlighted in yellow.
> >
> >
> > For your info, I am running version Excel 97
> > and the macro is called Sub Macro1()
> >
> >
> >
> >
> >
> > ben wrote:
> > > sheet1.usedrange.select
> > >
> > > this will select every single used cell
> > > then just add your border code to the bottom of that
> > >
> > > "Centurian" wrote:
> > >
> > >
> > >>Can anyone help ?
> > >>
> > >>I need to put border on a number of cells
> > >>of which number of rows is unknown.
> > >>
> > >>The first routine below was originally used to find
> > >>the number of rows and then fill down the columns.
> > >>
> > >>The 2nd part is a recording of keypresses to ut the
> > >>border on the cells.
> > >>
> > >>HOW do I marry the two parts together in order to
> > >>put borders inside and around Range ("A3:F" & LastRows)
> > >>
> > >>
> > >>
> > >> Dim LastRow As Long
> > >> With Worksheets("Sheet1")
> > >> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> > >> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow)
_
> > >> , Type:=xlFillDefault
> > >>
> > >>----------------------------------------------------------------
> > >>
> > >>
> > >> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> > >> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> > >> With Selection.Borders(xlEdgeLeft)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >> With Selection.Borders(xlEdgeTop)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >> With Selection.Borders(xlEdgeBottom)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >> With Selection.Borders(xlEdgeRight)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >> With Selection.Borders(xlInsideVertical)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >> With Selection.Borders(xlInsideHorizontal)
> > >> .LineStyle = xlContinuous
> > >> .Weight = xlThin
> > >> .ColorIndex = xlAutomatic
> > >> End With
> > >>
> > >>
> > >>
> > >>Regards
> > >>Centurian.
> > >>
> >

Try this:

Sub ABCD()
Dim LastRow As Long
With Worksheets("Sheet1")
LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
.Range("B3").BorderAround Weight:=xlThin
.Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
, Type:=xlFillDefault
End With
End Sub

--
Regards,
Tom Ogilvy

"Centurian" <[email protected]> wrote in message
news:[email protected]...
>
>
>
> Ben,
>
> I am having problems.
>
> Ran the macro with the suggested alteration
> and it halted at:
>
> With Selection.Borders(xlInsideVertical)
> .LineStyle = xlContinuous
> .Weight = xlThin
> .ColorIndex = xlAutomatic
>
>
> I got a Runtime 1004 Error
> When debug was pressed
> .LineStyle = xlContinuos
> was hightlighted in yellow.
>
>
> For your info, I am running version Excel 97
> and the macro is called Sub Macro1()
>
>
>
>
>
> ben wrote:
> > sheet1.usedrange.select
> >
> > this will select every single used cell
> > then just add your border code to the bottom of that
> >
> > "Centurian" wrote:
> >
> >
> >>Can anyone help ?
> >>
> >>I need to put border on a number of cells
> >>of which number of rows is unknown.
> >>
> >>The first routine below was originally used to find
> >>the number of rows and then fill down the columns.
> >>
> >>The 2nd part is a recording of keypresses to ut the
> >>border on the cells.
> >>
> >>HOW do I marry the two parts together in order to
> >>put borders inside and around Range ("A3:F" & LastRows)
> >>
> >>
> >>
> >> Dim LastRow As Long
> >> With Worksheets("Sheet1")
> >> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> >> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> >> , Type:=xlFillDefault
> >>
> >>----------------------------------------------------------------
> >>
> >>
> >> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> >> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> >> With Selection.Borders(xlEdgeLeft)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeTop)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeBottom)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlEdgeRight)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlInsideVertical)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >> With Selection.Borders(xlInsideHorizontal)
> >> .LineStyle = xlContinuous
> >> .Weight = xlThin
> >> .ColorIndex = xlAutomatic
> >> End With
> >>
> >>
> >>
> >>Regards
> >>Centurian.
> >>

Ben,
That was stated poorly and comes across as derogatory - my apologies - there
was no intent to disparage your contributions which are excellent. The
intent was to share some information. It should have said

This is the reason the code you posted previously in another thread raises
an
error.

In this current thread, you *have* recommended selecting a block of cells
and the code combined with your suggestion should not be a problem. I
suspect the OP did not implement it correctly and the Inside settings are
not causing the problem.

--
Regards,
Tom Ogilvy


"Tom Ogilvy" <[email protected]> wrote in message
news:[email protected]...
> Ben,
> Just for information,
> INSIDEHORIZONTAL and INSIDEVERITICAL [sic]
>
> are only valid when you are addressing a contiguous block of cells (rather
> than just one).
>
> Same reason the code you posted previously in another thread raises an
> error.
>
> --
> Regards,
> Tom Ogilvy
>
> "ben" <[email protected]> wrote in message
> news:[email protected]...
> > try deleting the with statements of the INSIDEHORIZONTAL and
> INSIDEVERITICAL
> > borders that may still get you the results you want
> > delete
> > With Selection.Borders(xlInsideVertical)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = xlAutomatic
> > End With
> > With Selection.Borders(xlInsideHorizontal)
> > .LineStyle = xlContinuous
> > .Weight = xlThin
> > .ColorIndex = xlAutomatic
> > End With
> >
> >
> > "Centurian" wrote:
> >
> > >
> > >
> > >
> > > Ben,
> > >
> > > I am having problems.
> > >
> > > Ran the macro with the suggested alteration
> > > and it halted at:
> > >
> > > With Selection.Borders(xlInsideVertical)
> > > .LineStyle = xlContinuous
> > > .Weight = xlThin
> > > .ColorIndex = xlAutomatic
> > >
> > >
> > > I got a Runtime 1004 Error
> > > When debug was pressed
> > > ..LineStyle = xlContinuos
> > > was hightlighted in yellow.
> > >
> > >
> > > For your info, I am running version Excel 97
> > > and the macro is called Sub Macro1()
> > >
> > >
> > >
> > >
> > >
> > > ben wrote:
> > > > sheet1.usedrange.select
> > > >
> > > > this will select every single used cell
> > > > then just add your border code to the bottom of that
> > > >
> > > > "Centurian" wrote:
> > > >
> > > >
> > > >>Can anyone help ?
> > > >>
> > > >>I need to put border on a number of cells
> > > >>of which number of rows is unknown.
> > > >>
> > > >>The first routine below was originally used to find
> > > >>the number of rows and then fill down the columns.
> > > >>
> > > >>The 2nd part is a recording of keypresses to ut the
> > > >>border on the cells.
> > > >>
> > > >>HOW do I marry the two parts together in order to
> > > >>put borders inside and around Range ("A3:F" & LastRows)
> > > >>
> > > >>
> > > >>
> > > >> Dim LastRow As Long
> > > >> With Worksheets("Sheet1")
> > > >> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> > > >> .Range("B3").AutoFill Destination:=.Range("B3:B" &
LastRow)
> _
> > > >> , Type:=xlFillDefault
> > > >>
> > > >>----------------------------------------------------------------
> > > >>
> > > >>
> > > >> Selection.Borders(xlDiagonalDown).LineStyle = xlNone
> > > >> Selection.Borders(xlDiagonalUp).LineStyle = xlNone
> > > >> With Selection.Borders(xlEdgeLeft)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >> With Selection.Borders(xlEdgeTop)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >> With Selection.Borders(xlEdgeBottom)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >> With Selection.Borders(xlEdgeRight)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >> With Selection.Borders(xlInsideVertical)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >> With Selection.Borders(xlInsideHorizontal)
> > > >> .LineStyle = xlContinuous
> > > >> .Weight = xlThin
> > > >> .ColorIndex = xlAutomatic
> > > >> End With
> > > >>
> > > >>
> > > >>
> > > >>Regards
> > > >>Centurian.
> > > >>
> > >
>
>

Don Guillett wrote:
> try this - UN tested
>
> Dim LastRow As Long
> With Worksheets("Sheet1")
> LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
>
> .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> , Type:=xlFillDefault
> .range("b3:f" & lastrow).Borders.LineStyle = xlContinuous
> end with
> End Sub
>


Thanks Don,

This worked beautifully after adjusting the range.

..Range("A3").AutoFill Destination:=.Range("A3:F" & LastRow) _
, Type:=xlFillDefault
..range("A3:F" & lastrow).Borders.LineStyle = xlContinuous

May I be a cheeky so and so and ask, how do I get the
macro to set PrintArea to the new range each time
the macro is run.

..range("A3:F" & lastrow) ??????????


I've looked in the object browser but cant see anything
obvious to use.

Regards
Centurian

aka... Kevin ( Lancashire, England, Europe )

Thanks Everyone.


Regards
Centurian

Your welcome.

--
Regards,
Tom Ogilvy


"Centurian" <[email protected]> wrote in message
news:[email protected]...
> Thanks Everyone.
>
>
> Regards
> Centurian

no worries Tom, i finally realized why that code causes an error, believe me
i always value your input.
Cheers

"Tom Ogilvy" wrote:

> Your welcome.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Centurian" <[email protected]> wrote in message
> news:[email protected]...
> > Thanks Everyone.
> >
> >
> > Regards
> > Centurian
>
>
>

Glad to help.


May I be a cheeky so and so and ask, how do I get the
> macro to set PrintArea to the new range each time
> the macro is run.
try
.range("A3:F" & lastrow).address


--
Don Guillett
SalesAid Software
[email protected]
"Centurian" <[email protected]> wrote in message
news:[email protected]...
> Don Guillett wrote:
> > try this - UN tested
> >
> > Dim LastRow As Long
> > With Worksheets("Sheet1")
> > LastRow = .Cells(Rows.Count, "A").End(xlUp).Row
> >
> > .Range("B3").AutoFill Destination:=.Range("B3:B" & LastRow) _
> > , Type:=xlFillDefault
> > .range("b3:f" & lastrow).Borders.LineStyle = xlContinuous
> > end with
> > End Sub
> >
>
>
> Thanks Don,
>
> This worked beautifully after adjusting the range.
>
> .Range("A3").AutoFill Destination:=.Range("A3:F" & LastRow) _
> , Type:=xlFillDefault
> .range("A3:F" & lastrow).Borders.LineStyle = xlContinuous
>
> May I be a cheeky so and so and ask, how do I get the
> macro to set PrintArea to the new range each time
> the macro is run.
>
> .range("A3:F" & lastrow) ??????????
>
>
> I've looked in the object browser but cant see anything
> obvious to use.
>
> Regards
> Centurian
>
> aka... Kevin ( Lancashire, England, Europe )
>