Kevin,

This code looks great. Thanks for your post. I'm dying to test it - as soon
as I finish my reconciliation here.

I looked for an online glossary that would explain code/commands, and how to
assemble functional VB code, but I certainly did not find anything that
included "As Range" and such. I looked, believe me.

Can you suggest any free sources for a beginner like me? I spent a lot of
time on this yesterday, and got nowhere.

Again thanks for your expertise. I really appreciate it.

Mark
=========================================

"Kevin Vaughn" wrote:

Here is the new version. You can select multiple columns or a single column,
appears to work either way. Select the rows you want to total and then
invoke the macro and it will add the formula and bold it.

Sub Macro7()
Dim myRange As Range
Dim RowCount As Long
RowCount = Selection.Rows.Count
Set myRange = ActiveSheet.Range(Selection.Address)
' ActiveCell.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
myRange.Offset(RowCount).Resize(1).EntireRow.Inser t
With myRange.Offset(RowCount).Resize(1)
.FormulaR1C1 = "=sum(r[-" & RowCount & "]c:r[-1]c)"
.Font.Bold = True
End With
End Sub

--
Kevin Vaughn


"Kevin Vaughn" wrote:

Ah, I see what you are intending. You select the rows you want totaled and
then run the macro. Let me see if I can modify it to do this.
--
Kevin Vaughn