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

Brad wrote:

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

--

Dave Peterson