Invalid Outside Procedure

  • Thread starter Thread starter Brad
  • Start date Start date
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
 
Forgot to mention the Location the error occurs at is

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

^Here
 
Forgot to mention the location of the error

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

^ Here
 
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
 
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.
 
Back
Top