' Increment Number
Private Sub Increment_Click()
With Me.Range("K20")
..Value = .Value + 1
..NumberFormat = "00000"
Me.Increment.Enabled = False
Me.InDate.Enabled = True
End With
End Sub


In the above code I want the number to display the letter "S" at the end of
every incremented number.

I have changed the code as follows, without success.

..NumberFormat = "00000" & "S"

..NumberFormat = "00000" .Text = "S"

Anyone know what it needs to be?

Thanks in advance.