P
Pat
' 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.
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.