Phil,

This is what I mean

Sub Descending_Values()

Dim MyArray() As Integer

Redim MyARray ( To 10) ' or your maximum entry
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



--

HTH

Bob Phillips

"Phil Hageman" wrote in message
...
Bob, I'm over my head here - don't understand what you're
saying (I'm not a programmer). Could you review my
original intent with this module code and suggest the code
to use to get the job done?

Thanks, Phil
-----Original Message-----
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


.



.