Phil,

It's not the Dim that is erroring, but the next line where you have
allocated a value to item 8 in the array, but the array is not dimensioned.
You can either dim in it the declaration
Dim MyArray(8) As Integer
or redim it later
ReDim MyArray(8)

--

HTH

Bob Phillips

"Phil Hageman" wrote in message
...
Bob, here's what I have now:

Sub Descending_Values()

Dim MyArray() As Integer
MyArray(8) = 234

If (Worksheets("1. Customer").[M15] < Worksheets("1.
Customer").[M16] Or _
(Worksheets("2. Financial").[M15] < Worksheets("2.
Financial").[M16])) Then
MsgBox "Target cannot be greater than Chart Max"
End If
End Sub

The Dim statement is causing a compile error: Run-time
error '9': Subscript out of range. I don't know what this
means. I copied the Dim line out of Help, as it
suggested.

Can you help straighten this out?

Thanks, Phil



-----Original Message-----
Phil,

Nothing can be assumed, you must spell every test out
fully, and include
Worksheet object, and the dot operator.

IF Worksheets("A").[A1] < Worksheets("B").[M1] OR _
Worksheets("A").[A1] < Worksheets("B").[M2] or

etc.
--

HTH

Bob Phillips

"Phil Hageman" wrote in message
...
Excel 2000

This module code is inteded to give the user a message
when improper data is entered in either the Customer or
Finance worksheet. It isn't working. The "If..." line
is
colored red.

Sub On_Update()

If (Worksheets("Customer")Or ("Finance")[M15] < [M16] Or
[M47] < [M48] Or [M79] < [M80]) Then
' MsgBox "Target cannot be greater than Chart
Max"

End If
End Sub

Where am I going wrong?

Thanks, Phil


.