Is your template a true Template(*.XLT)

Private Sub Workbook_Open()
if thisworkbook.path = "" then
'it's never been saved, so increment
Sheet1.Range("H16").Value = Sheet1.Range("H16").Value + 1
end if
End Sub

Placed in Thisworkbook module of the Template from which your workbooks are
created.


Gord Dibben MS Excel MVP

On Thu, 9 Oct 2008 09:24:00 -0700, gigglygover
wrote:

I want to set up a template that when opened in one cell will give me #1 the
first time it was used, then #2 the second time. I want the numbers to be
incremental in 1's,

Any suggestions please