T3783_Increment Using Static

https://excel-egy.com/forum/t3783
---------------------------------

Sub Increment_Using_Static()
    Static x        As Long
    Dim v           As Variant

    x = x + 1

    If x = 1 Then
        Range("A1").Value = "asd-001"
    Else
        v = Range("A1").Value
        Range("A1").Value = Split(v, "-")(0) & "-" & Format(Val(Split(v, "-")(1)) + 1, "000")
    End If
End Sub