How do I reset a for next loop in the script?

Dim simspg as variant
Dim simspoint as variant
simspg = Array("SP001", "SP002", "SP003", "SP004", "SP005", "SP006", "SP007", "SP008", "SP009", "SP010", "SP011", "SP012", "SP013", "SP014", "SP015", "SP016", "SP017", "SP018", "SP019", "SP020", "SP021")
For each simspoint in simspg 
  Worksheets (simspoint).select
  For x = 1 to 100
  cells (x,1).value = 12
  next
next