Can anyone modify this to work please I think it does not because of the
"" problem? Did try and do this at first using worksheet function but
have up now just trying to paste the formula into the worksheet!!!

rng = "B" & ofst + 4
rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5)
Range(rng).Formula = "=SumIf(B4:HZ4, " * QUAD * ",rng2)"

Many Thanks
Neil

*** Sent via Developersdex http://www.developersdex.com ***

I don't know exactly what you want to accomplish, so maybe I solved the
wrong problem, but do you want something like this to happen?

Sub test()
Dim ofst As Integer, rng2 As String
Dim QUAD As String
ofst = 0
QUAD = 1

rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5)
Cells(ofst + 4, 2).Value = "=SumIf(B4:HZ4, " + QUAD + "," + rng2 + ")"

End Sub

If so, good luck with it.

Grtz

Jzz

Perhaps

rng = "B" & ofst + 4
rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5)
Range(rng).Formula = "=SumIf(B4:HZ4, "" * QUAD * ""," & rng2 & ")"


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Neil Atkinson" wrote in message
...
Can anyone modify this to work please I think it does not because of the
"" problem? Did try and do this at first using worksheet function but
have up now just trying to paste the formula into the worksheet!!!

rng = "B" & ofst + 4
rng2 = "B" & (ofst + 5) & ":HZ" & (ofst + 5)
Range(rng).Formula = "=SumIf(B4:HZ4, " * QUAD * ",rng2)"

Many Thanks
Neil

*** Sent via Developersdex http://www.developersdex.com ***