Hi

I am running the following VBAProject in a Module

Option Explicit

Public Function PromptPayment()
MsgBox "Please issue Prompt Payment Letter and input
relevant information to PP spreadsheet"

End Function

This works well when I put the following formula in a
number of cells

=IF((F4-E4)=15,PromptPayment()+F4-E4,F4-E4)

The problem I have is that the data that I have saved
cannot be deleted for Audit requirements so when I open
the workbook after a close down, the message box appears
(ref above VBA runs) before it opens and you have to
click ok.
The only way I can get rid of this is by deleting the
cell with the more than 15 days.
However as explained above, I need this information to be
keep for Audit.
Can anyone please help?

PS I am using my works PC that's why it comes up
anonymous-My user name is Monty

Thanks
Monty

See answer to your other post

--
Don Guillett
SalesAid Software

"Andy" wrote in message
...
Hi

I am running the following VBAProject in a Module

Option Explicit

Public Function PromptPayment()
MsgBox "Please issue Prompt Payment Letter and input
relevant information to PP spreadsheet"

End Function

This works well when I put the following formula in a
number of cells

=IF((F4-E4)=15,PromptPayment()+F4-E4,F4-E4)

The problem I have is that the data that I have saved
cannot be deleted for Audit requirements so when I open
the workbook after a close down, the message box appears
(ref above VBA runs) before it opens and you have to
click ok.
The only way I can get rid of this is by deleting the
cell with the more than 15 days.
However as explained above, I need this information to be
keep for Audit.
Can anyone please help?

PS I am using my works PC that's why it comes up
anonymous-My user name is Monty

Thanks
Monty