Hey Chip,

That works great. I was wondering, how would I do this with a
ScrollBar instead of separate buttons? Is it even possible? I need
to go both forward and backward.

Thanks for the help.

-Minitman


On Sat, 31 Jul 2004 16:52:17 -0500, "Chip Pearson"
wrote:

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