Invalid Outside Procedure

B

Brad

I have a program that auto updates a cell in several worksheets of a workbook
when a value is changed on another worksheet in the same workbook. The
program works flawlessly on my computer; however, when a colleague opens the
workbook and the program is triggered he gets an Invalid Outside Procedure
Error. He has the same VB references and excel addins active that I have.
Here is the code.

Private Sub Worksheet_Change(ByVal Target As Range)
'
' Auto update Rev Level and Date when a change is made on the rev guide sheet
'
'== Declare Variables
Dim iRevLevel As Integer
Dim dRevDate As Date
Dim ws As Worksheet
'==
'== Get the latest rev level and date from Rev Guide Worksheet
iRevLevel = Worksheets("Rev Guide").Range("A1").End(xlDown).Value
dRevDate = Worksheets("Rev Guide").Range("F1").End(xlDown).Value
'==
'== Loop through all worksheets and update rev level and date
For Each ws In ActiveWorkbook.Worksheets

If ws.Name <> "Rev Guide" Then
ws.Range("M3").Value = "Rev. " & iRevLevel
ws.Range("K3").Value = "Date: " & dRevDate
End If

Next ws
'==
End Sub

Any ideas? Thanks in advance
 
B

Brad

Forgot to mention the Location the error occurs at is

iRevLevel = Worksheets("Rev Guide").Range("A1").End(xlDown).Value

^Here
 
B

Brad

Forgot to mention the location of the error

iRevLevel = Worksheets("Rev Guide").Range("A1").End(xlDown).Value

^ Here
 
D

Dave Peterson

If it's a different workbook, then I would suspect that there are additional
characters (maybe whitespace) outside the procedures you've created. Or maybe
that workbook has the procedure name commented?

If it's the same workbook, maybe it's caused by an error in one of that person's
other workbooks.



Maybe it's not numeric
 
D

Dave Peterson

I would look for any characters outside any procedure.

Maybe copy and pasting into NotePad, deleting the module and the pasting back
into a new module would help. Just make sure you take the portion of the code
that is required.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top