Totals

Here's a simplified version of your code.
You can use one SumString and just add it to itself repeatedly.

Sub Totals()

Dim Start As String
Dim EndPart As String
Dim Spacer As Integer
Dim SumString 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? ")
SumString = "=R[-4]C"
For Counter = 2 To Num
    Argument = Counter * Spacer
    SumString = SumString & "+" & Start & Argument & EndPart
Next Counter
MsgBox ("Here: " & SumString)
End Sub

HTH

bhofsetz,

You're awesome!

Thanks,

Peter