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
Bookmarks