Can you please specify your code in detail. I tried with the following modification. But it does not seem to work 
    ActiveWorkbook.CustomDocumentProperties(1) = _
    ActiveWorkbook.CustomDocumentProperties(1) + 1
    txtSatffID = ActiveWorkbook.CustomDocumentProperties(1)