What does it mean when it says -
Complie error:
Invlid Outside Procedure

How do I fix this

--
Message posted from http://www.ExcelForum.com

It means that whatever is highlighted (e.g., an external function
declaration) cannot be declared within a Sub or Function
procedure. Move that item outside of and prior to any procedure.
It would be helpful if you posted the code that is causing the
problem.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Fraggs " wrote in
message ...
What does it mean when it says -
Complie error:
Invlid Outside Procedure

How do I fix this?


---
Message posted from http://www.ExcelForum.com/

Code
-------------------
Answer = MsgBox("Do you want to continue ?", _
vbOKCancel, "My Title")
If Answer = vbOK Then ActiveWorkbook.FollowHyperlink Address:= _
"Q:\AR, Retail Support & Cash Management\Retail Support\VOUCHERS\New Vouchers\Live\Voucher Issue Spreadsheets to date\Corporate Voucher Issues to date.xls" _
, NewWindow:=False, AddHistory:=True
Sheets("Nav").Select
Range("A1").Select
Else
If Answer = vbCancel Then Exit Su
-------------------


Thats the offending code. doesnt want to work for some reason :

--
Message posted from http://www.ExcelForum.com

It sounds like you have something outside your procedure.

This version (untested for the long path) seems to work ok:

Option Explicit
Sub testme()

Dim Answer As Long

Answer = MsgBox("Do you want to continue ?", _
vbOKCancel, "My Title")
If Answer = vbOK Then
ActiveWorkbook.FollowHyperlink Address:= _
"Q:\AR, Retail Support & Cash Management\Retail Support\" & _
"VOUCHERS\New Vouchers\Live\Voucher Issue Spreadsheets to date\" _
& "Corporate Voucher Issues to date.xls", _
NewWindow:=False, AddHistory:=True
Sheets("Nav").Select
Range("A1").Select
Else
Exit Sub
End If

End Sub

Check for extraneous characters after your End Sub or between any End Sub and
next Sub (if you have multiple procedures within the module).



"Fraggs <" wrote:

Code:
--------------------
Answer = MsgBox("Do you want to continue ?", _
vbOKCancel, "My Title")
If Answer = vbOK Then ActiveWorkbook.FollowHyperlink Address:= _
"Q:\AR, Retail Support & Cash Management\Retail Support\VOUCHERS\New Vouchers\Live\Voucher Issue Spreadsheets to date\Corporate Voucher Issues to date.xls" _
, NewWindow:=False, AddHistory:=True
Sheets("Nav").Select
Range("A1").Select
Else
If Answer = vbCancel Then Exit Sub
--------------------

Thats the offending code. doesnt want to work for some reason :(

---
Message posted from http://www.ExcelForum.com/

--

Dave Peterson