It was set up dynamic as:

Dim rpp() As Integer

Then set up like this once I knew how many records I was going to process..


ReDim Preserve rpp(intrecCount)