cymrudesign
Registered User.
- Local time
- Today, 07:53
- Joined
- May 7, 2006
- Messages
- 84
Simple invoice but i need it to auto increment the invoice number
im using
Private Sub Workbook_Open()
MyInv = Sheets("Sheet1").Range("A1").Value
MyInv = MyInv +1
Sheets("Sheet1").Range("A1") = MyInv
End Sub
it works if i run it from the vb window but not when the invoice is opened
have i missed something here???
A
im using
Private Sub Workbook_Open()
MyInv = Sheets("Sheet1").Range("A1").Value
MyInv = MyInv +1
Sheets("Sheet1").Range("A1") = MyInv
End Sub
it works if i run it from the vb window but not when the invoice is opened
have i missed something here???
A