Vælge imellem 5 tekster i en celler i excel

Dim i As Byte'SKAL stå udenfor nedenstående Sub, da den ellers nulstilles hver gang

Private Sub CommandButton1_Click()
  i = i + 1
  If i > 5 Then i = 1
  Range("G5").Select
  Select Case i
    Case 1
    ActiveCell.FormulaR1C1 = "hej - tryk 1"
    Case 2
    ActiveCell.FormulaR1C1 = "hej - tryk 2"
    Case 3
    ActiveCell.FormulaR1C1 = "hej - tryk 3"
    Case 4
    ActiveCell.FormulaR1C1 = "hej - tryk 4"
    Case 5
    ActiveCell.FormulaR1C1 = "hej - tryk 5"
  End Select
End Sub

Super mange tak, det virkede perfekt. Lige hvad jeg manglede.