VB Range henvisning med variabel (Excel)

Jeg er i gang med at lave et loop, der skal skrive noget i et på forhånd valgt antal celler. Jeg kan bare ikke lige huske, hvordan man gør det. Jeg troede, at det var noget i den her stil:

Private Sub CbOk_Click()
  Dim CellNo As Integer
  CellNo = 0
  'Skriv "Celle 1" i A2, "Celle 2" i A3, ...
  While CellNo < TextBox1.Value
      Range("A" + (CellNo+2)).Value = "Celle" + (CellNo + 1) 
      CellNo = CellNo + 1
  Wend
End Sub