Does your module use any functions that are part of an Excel add-in,
such as NETWORKDAYS or EOMONTH? In that case, you would get an error
when someone uses your module and doesn't have the necessary add-in
installed. Whether it would be that particular message, I don't know.

Thanks for the response.
No Stan it doesn't use any add-ins. It uses an embedded media player object
though

Thank you Nick

I shall work through your comments and see if anything there helps with the
problem.

Some of the programming was fast and dirty adaptations from other
spreadsheets so that accounts for the mess

The buttons existed in a previous version of the software and need to be
taken out - but I don't think that is the problem

I am somewhat self taught in the VBA department as you can tell. I will do a
tidy up and clean up and see if that helps. But my instinct is that this is
being caused by the presence of some outside element such as Norton
anti-virus.

D

I took the liberty of looking at your VBA code, although not stepping
through it in the VBA IDE. See below for some points.

- There is a lot of obsolete code/objects in the file that appear to have
been forgotten about (numerous modules that are not used or have recorded
macro code that probably is obsolete). You could do with a tidy up.

- There are many .Select which are not necessary in the most part for what
you are doing:
Range("B9").Select
ActiveCell.FormulaR1C1 = nocar
(and in this case, you are not setting the FormulaR1C1 property, but the
.Value, although it will not cause an error.)
So use:
Range("B9").Value= nocar

- It would seems that you are trying to reference a bunch of shapes that do
not exist and never exist:
ActiveSheet.Shapes("Button 735").Select
And using On Error resume Next to skip over the errors that are raised. Is
this intention or an over sight?
You also seems to have numerous modules that are not used or have recorded
macro that probably is obsolete.

- Whilst not exactly wrong, much of code like this serve little purpose:
Dim hols As String
hols = Range("FJ7").Value
With Me.CommandButton14
.Caption = hols
End With

and if you named the command button more descriptively, it would help the
clarity:
Me.cmdHolidays.Caption = Range("FJ7").Value

- There are many formulae with errors:
=[ppresults.xls]results'!$BG2621

- You should read up on error handling. What does this mean ?
Dim Mpath As String
On Error Resume Next
Mpath = "http://www.perceptionpanel.com/"
On Error Resume Next
Dim fname As String
On Error Resume Next

- You could simplify your routines Macro7, Macro8 etc by passing parameters
to the routine and looping through each chart. Also meaningful names of
routines make understand the code much easier.

- I get various errors or termination of code, but without accessing the
code in the IDE, hard to give exact answers as to cause. If the above first
and see how things go, although I suspect the cause(s) are more fundemantal
than cosmetic.

NickHK

error

Norton

Ps.  If I had to find the solution, I'd find one of those users who have
trouble.  Share a version of the workbook without the project protection.

Then have that user open the file while I watched in person or via Netmeeting
(or equivalent).

I haven't tried this, but it looks like it may be useful if you're not both
running a version of windows that  runs netmeeting (it was removed from Vista).

http://showmypc.com/