Problem with inserting formula in cell. VBA

[tekfangr]

Hello to all.

I can't get to execute this code without an error (1004):

Private Sub CommandButton3_Click()
Dim j As Variant
Dim x As Variant
Dim i As Variant
x = "="
For i = 1 To Range("p1").Value
    j = j + "SUM(B" & 28 + i & ")"
Next i
MsgBox (x)
j = x & j
Range("q1").Formula = j
End Sub

What am i missing?

Many thanks for your help

 

[StephenJR]

Not quite sure what you're doing but doesn't this do it?

Range("q1").Formula = "=SUM(B28:B" & 28 + Range("p1").Value & ")"

 

[SkipVought]

Hi,

What's your FUNCTIONAL objective here, in plain English?

Skip,
[sub]
When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen![/sub]

 

[tekfangr]

Sorry, not only i pasted an erronous, but i also not left any explanation (by the way english is not my native language, so sorry for the mistakes).
Please ignore the post, i found my answer...
Thanks for your help, both of you!

 

[SkipVought]

If you found an answer, it would be helpful to other members, if you would post your solution.

Skip,
[sub]
When a group touring the Crest Toothpaste factory got caught in a large cooler, headlines read...
Tooth Company Freeze a Crowd! and
Many are Cold, but Few are Frozen![/sub]