Thread: VBAProject:Option Explicit

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
donaldb@281.com
"Andy" <Daredevil559@hotmail.com> wrote in message
news:10df01c4f71c$350ee4d0$a501280a@phx.gbl...
> 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
>