I need a loop to set 250 strings equal to the contents of the first 250 cells in row 2. I am trying to get each string to be called Cel1, Cel2, Cel3....Cel250 with a loop instead of pasting it 250 times (I am getting a "Procedure too large" error when I try to run it this way).

Dim pk as Integer
Dim num as Integer
Dim r as Integer

pk = 1
num = 1
r = 2

For pk = 1 To 250  
  Cel & num = Cells(1, r).Value   '''getting expected expression error with this line
  num = num + 1
  r = r + 1
Next pk
I can't figure out a way to combine "Cel" with num to set the correct string name for each loop. Thanks in advance.