I'm trying write a Macro that will total premium values for a porfolio of companies. The number of companies will vary from portfolio to portfolio. Here's what I have so far:

Sub Totals()

Dim Start As String
Dim EndPart As String
Dim Spacer As Integer
Dim SumString1 As String
Dim SumString2 As String
Dim SumString3 As String
Dim Argument As Integer
Dim Counter As Integer
Dim Num As Integer

Spacer = 4
Start = "R[-"
EndPart = "]C"

Argument = Spacer

Num = InputBox("How many portfolio companies are there? ")

SumString1 = "=R[-4]C"

For Counter = 2 To Num

Argument = Counter * Spacer

SumString2 = "+" & Start & Argument & EndPart

SumString3 = SumString1 & SumString2

Next Counter

MsgBox ("Here: " & SumString3)

End Sub

As you can see my sum only captures the first and last values, and I can't seem to figure out a way to incorporate all the values in the sume.

Any help would be greatly appreciated.

Thanks,

Peter