Hi Michael,

With the info you've provided not sure how to reconstruct your code. I did
it one way which worked giving outlines & subtotals, subject to some labels
and data in the cells.

As for your array, where is it, myCols is a string.

ReDim myCols(9 To LC)
For i = lBound(myCols) To LC
myCols(i) = i
Next i

Regards,
Peter T

"michael.beckinsale" wrote in message
ups.com...
Hi All,

The following code is supposed to build an array from 8 to 105
(columns i want to subtotal) and then use that array in the subtotal
function.

I think the problem lies with the data type in that the array is built
as a string.

Can anybody help to fix this code please ?


Sub SP_SubTotals()

Dim myCols As Variant
Application.ScreenUpdating = False
Sheets("Staff Planner").Activate
myCols = 8
For i = 9 To LC
myCols = myCols & "," & i
Next i
MsgBox (myCols)
If IsArray(myCols) Then
MsgBox ("OK")
Range(Cells(3, 1), Cells(LR, LC)).Select
Selection.Subtotal GroupBy:=4, Function:=xlSum, TotalList:=myCols,
_
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End If

End Sub

TIA

Regards

Michael Beckinsale