Try this

Public Function NextSeqNumber(Optional sFileName As String, _
Optional nSeqNumber As Long = -1) As Long
Const sDEFAULT_PATH As String = "C:\"
Const sDEFAULT_FNAME As String = "defaultseq.txt"
Dim nFileNumber As Long
Dim nDate As String

nFileNumber = FreeFile
If sFileName = "" Then sFileName = sDEFAULT_FNAME
If InStr(sFileName, Application.PathSeparator) = 0 Then _
sFileName = sDEFAULT_PATH & Application.PathSeparator & sFileName
If nSeqNumber = -1& Then
If Dir(sFileName) < "" Then
Open sFileName For Input As nFileNumber
Input #nFileNumber, nSeqNumber, nDate
If Month(CDate(nDate)) < Month(Date) Then
nSeqNumber = 1&
Else
nSeqNumber = nSeqNumber + 1&
End If
Close nFileNumber
Else
nSeqNumber = 1&
End If
End If
On Error GoTo PathError
Open sFileName For Output As nFileNumber
On Error GoTo 0
Print #nFileNumber, nSeqNumber, Format(Date, "dd mmm yyyy")
Close nFileNumber
NextSeqNumber = nSeqNumber
Exit Function
PathError:
NextSeqNumber = -1&
End Function


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"abcdexcel" wrote
in message ...

Hi

Using the text file version.

There always be more than one invoice in a day.


--
abcdexcel
------------------------------------------------------------------------
abcdexcel's Profile:
http://www.excelforum.com/member.php...o&userid=30021
View this thread: http://www.excelforum.com/showthread...hreadid=501060