VBA Loop

Option Explicit
Const Værdi_1 As Variant = "Na1"
Const Værdi_2 As Variant = "Na2"
Const Værdi_3 As Variant = "Na3"
Const Værdi_4 As Variant = "Na4"
Const Værdi_5 As Variant = "Na5"
Dim Cell As Range


Private Sub CommandButton1_Click()
    Set Cell = Range("B3")
    With Cell
        Select Case .Value
            Case Værdi_1
                .Value = Værdi_2
            Case Værdi_2
                .Value = Værdi_3
            Case Værdi_3
                .Value = Værdi_4
            Case Værdi_4
                .Value = Værdi_5
            Case Værdi_5
                .Value = Værdi_1
            Case Else
                .Value = Værdi_1
        End Select
    End With
End Sub