Compile Error: Invalid Outside Procedure

[luolovepi]

Excel prompt out an error message that : "Compile Error: Invalid Outside Procedure".

The code it highlights is "PR_Form" in code:

'-------------------------------------
'declaration of some PR Form variables
'-------------------------------------
Public Pr As Worksheet 'PR Form worksheet shorhand
Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

I put this code outside subs.
How can I solve this problem?
Thanks!

 

[dk]

Hi

You can't put executable code outside of procedures. You can declare variables and external functions (e.g. Windows API) but everything else must reside in some sort of procedure e.g. function, sub, property get/let/set.

Also, you need to use the Set keyword when assigning an object to an object variable i.e.

This:
Set Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

not this:
Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

HTH
DK

 

[Trebor76]

Hi there,

Try this:

Set Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

HTH

Robert

 

[luolovepi]

Thanks DK and Robert,

I tried both of your solutions. I think DK's correct. Thank you so much!
Thanks a lot for DK's explanation too

Yours sincerely,
lolo^-^

Hi

You can't put executable code outside of procedures. You can declare variables and external functions (e.g. Windows API) but everything else must reside in some sort of procedure e.g. function, sub, property get/let/set.

Also, you need to use the Set keyword when assigning an object to an object variable i.e.

This:
Set Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

not this:
Pr = ThisWorkbook.Worksheets("PR_Form") 'set value to Pr

HTH
DK