I don't have any online references for you per se. A lot of the MVPs have
their own web sites which you might want to check out. I have quite a number
but I don't have them delineated as to what they cover (i.e. programming or
other.) Most of what I have learned has been from books. I can recommend
John Walkenbach. For instance, Excell 2002 Power Programming with VBA (I am
actually using 2000 and I know 2003 is out, but that was the book that was
available at my bookstore when I went shopping.)

If you get no further responses as to online resources for programming you
might want to either post a new question or maybe try a search to see what
has been recommended in the past.

--
Kevin Vaughn


"Brainless_in_Boston" wrote:

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