Office not pre-installed. I have Office 2K and XP installed, but I'm not
inclined to uninstall all to fix this error.

NickHK

"Bob Flanagan" wrote in message
. ..
I have seen this error numerous time. It happens primarily on PCs that
had
Office pre-installed by the supplier. They typically use a disk image
approach. It doesn't always work.

The solution is todo a repair of office in Add/Remove Programs

If that doesn't work,

Un-install Office
Reboot
Re-install Office.

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel


"Developer" wrote in message
...
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

"NickHK" wrote in message
...
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


"Developer" wrote in message
...
Hello

I wonder if I might ask for some help

I built a very complex VBA spreadsheet for use by BBC Television which
allows their political programmes to be replayed from the Internet
while
simultaneously displaying realtime audience approval and disapproval.
The
primary audience is polling analysts and MPs.

It can be found at



http://news.bbc.co.uk/1/hi/programme...0.stm#download

or

http://www.perceptionpanel.com/click...on%20panel.zip

Some users have reported a "compile error in hidden module" error
message
referencing Sheet 11 of the spreadsheet. I am unable to replicate the
error
on any of my systems.

It has been suggested that old versions of Adobe or the presence of
Norton
Antivirus might be the cause. Might anyone have any insight into this
problem?

Many thanks

Best

Developer