Thank's Brad
I'll be able to construct something using your below example and some existing code

Thanks. Very much appreciated

----- Brad Yundt wrote: ----

You're limited to 15 digits with a floating point number,
so you will probably be wanting to construct a string
with your unique ID

Dim UniqueID As Strin
UniqueID="Q1234567" & Format(Date,"yyyymmdd") & Forma
(Time,"hhmmss"