Thanks Tom

This looks good, unfortunately, I already went with Chip's solution,
but thanks for the reply.

-Minitman

On Sat, 31 Jul 2004 18:13:45 -0400, "Tom Ogilvy"
wrote:

Private Sub GetNextInv_Click()
Range("InvNoLast").Value = Left(Range("InvNoLast").Value, 2) & _
Format(Right(Range("InvNoLast").Value, _
Len(Range("InvNoLast").Value) - 2) + 1, "000000")
End Sub