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
"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

Forgot to mention the location of the error

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

^ Here
"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

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

It is the same workbook. What kind of error should I look for?

"Dave Peterson" wrote:

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

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.

Brad wrote:

It is the same workbook. What kind of error should I look for?

"Dave Peterson" wrote:

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


--

Dave Peterson