4 steps:
1/ declare a global
Global glolngIncrementSequence As Long
2/ create a function
Public Function fncIncrementSequence(ByVal varDummy As Variant) As Long
' Very important: varDummy must be any non empty text value
glolngIncrementSequence = glolngIncrementSequence + 1...