Try something like

Private Sub GetNextInv_Click()
Dim S As String
Dim N As Long
Dim Pos As Integer
S = Range("InvNoLast").Value
Pos = InStr(1, S, "-")
N = CLng(Mid(S, Pos + 1))
N = N + 1
Range("InvNoLast").Value = Left(S, Pos) & Format(N, "000000")
End Sub

--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Minitman" wrote in message
...
Greeting,

I tried this in the misc group, but I think that was the wrong
group,
so here goes, again....

I have an invoice that uses a button to advance the invoice
number by
1. When I wrote it the numbers were just numbers, but since
then a
letter has been added to the front of the number (was 17445 now
D-017445). My advancing code no longer works and I don't know
why!

Here is the code:

Private Sub GetNextInv_Click()
Range("InvNoLast").Value = Range("InvNoLast").Value + 1
End Sub

Anyone have an idea on how to fix it?

Any help would be most appreciated.

TIA

-Minitman