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

Sat, 14 Jul 2007 11:02:25 +0100 from Developer
<(E-Mail Removed)>:
> 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?

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.

--
Stan Brown, Oak Road Systems, Tompkins County, New York, USA
http://OakRoadSystems.com/

"Stan Brown" <(E-Mail Removed)> wrote

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

http://www.onlinecomputertips.com/of...ile_error.html

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Developer" <(E-Mail Removed)> wrote in message
news:46989f36$(E-Mail Removed)...
> 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
>
>

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" <(E-Mail Removed)> wrote in message
news:46989f36$(E-Mail Removed)...
> 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
>
>

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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
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" <(E-Mail Removed)> wrote in message
news:46989f36$(E-Mail Removed)...
> 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
>
>

I cannot create a form with the ActiveMovie control at all on my system.
There is an MS page about this error in Excel:
http://support.microsoft.com/kb/285517

Whilst I did manage to get your xls working somewhat, after hitting the
above error, it consistent failed. I also get an ActiveX activation warning.
I don't use Norton, so can't say.

If you feel inclined to send me an unprotected copy of the WB, I will see
what I can do whilst stepping through. Otherwise it's difficult to advise
much more, as I cannot recreate such a userform.

NickHK

"Developer" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:46989f36$(E-Mail Removed)...
> > 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
> >
> >
>
>
>

"NickHK" <(E-Mail Removed)> wrote

If you feel inclined to send me an unprotected copy of the WB, I will see
what I can do whilst stepping through. Otherwise it's difficult to advise
much more, as I cannot recreate such a userform.

NickHK

Thanks. Do you have an e-mail address I should use?

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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
> news:46989f36$(E-Mail Removed)...
>> 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
>>
>>
>
>
>

"Bob Flanagan" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
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.

Thanks Bob I shall try that first