As an amateur to a group of professionals, thanks for the advice but you
have now lost me completely !! What is the problem with the code below, sure
it is not just making lr into LR ?? ... Roger



"Don Guillett" wrote in message
...
It probably should have been LR. Typo. Probably mine when I hurriedly
provided the code originally.

--
Don Guillett
SalesAid Software

"Chip Pearson" wrote in message
...
You have not assigned a value to the l4 variable.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"Roger" wrote in message
...
I am reposting this as I cannot get a reply to my problem. The following
macro is meant to go to the last row and then on the next row (lr+1) make
a totals row. But when I run the macro I get an error message
"application-defined or object-defined error" and it
does to the line

.Range(Cells(lr, "h"), Cells(lr, "o")).Borders.LineStyle = xlContinuous

and after as the problem code.

Can someone help me please ?

Sub MakeTotals()'

' Make Totals for Report (zonderArb) Macro
' Macro recorded 15/06/02 by RAO
' Keyboard Shortcut: Ctrl+Shift+T
' clears borders from rows below total line (row 460) for clean
printing
' creates SUM formula and then copies across total line
' creates borders and formats 0.00 where appropriate
' saves worksheet

lr=cells(rows.count,"H").end(xlup).row+1
Worksheets("Report (zonderArb)").Rows("460:660").Borders.linestyle =
xlNone
with workSheets("Report (zonderArb)")
. Range("H" & lr).formula="=sum(h1:h" & lr & ")"
. Range("H" & lr).Copy Range(cells(lr,"I"),cells(lr,"ae"))
. Range(cells(lr,"A"),cells(lr,"g")).borders.LineSty le =
xlContinuous
. Range(cells(lr,"h"),cells(lr,"o")).borders.LineSty le =
xlContinuous
. Range(cells(lr,"p"),cells(lr,"w")).borders.LineSty le =
xlContinuous
. Range(cells(lr,"x"),cells(lr,"ae")).borders.LineSt yle =
xlContinuous
. Range("AF" & lr).").borders.LineStyle = xlContinuous

. Range(cells(l4,"M"),cells(lr,"n")).NumberFormat = "0.00"
. Range(cells(l4,"u"),cells(lr,"v")).NumberFormat = "0.00"
. Range(cells(l4,"ac"),cells(lr,"ad")).NumberFormat = "0.00"

. Range("G" & LR)= "Totals"

With . Range("G" & LR).Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
End With

end with

'Sheets("Instructions").Select
' Range("K61").Select
ActiveWorkbook.Save
End Sub