INSTEAD OF THIS ‘Sub TEST2()
Sub TEST2()
With Worksheets(“Sudocu”).[A1]
If .Text = “” _
And [A1] “1″ And [A2] “1″ And [A3] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A4] “1″ And [A5] “1″ And [A6] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A7] “1″ And [A8] “1″ And [A9] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A1] “1″ And [B1] “1″ And [C1] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [D1] “1″ And [E1] “1″ And [F1] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [G1] “1″ And [H1] “1″ And [I1] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A1] “1″ And [B1] “1″ And [C1] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A2] “1″ And [B2] “1″ And [C2] “1″ _’NOT EQUAL SIGN IS NOT VISIBLE.
And [A3] “1″ And [B3] “1″ And [C3] “1″ Then’NOT EQUAL SIGN IS NOT VISIBLE.

[A1] = “1”
End If
End With
End Sub

SANDY HANBERG
847-966-2299
SANDYGERRI@NETZERO.COM

WHY CANT I DO THIS ‘Sub TEST1() DOES NOT WORK
Sub TEST1()
With Worksheets(“Sudocu”).[A1]
If .Text = “” _
AND [A1:A9] “1” _
AND [A1:I1] “1” _
AND [A1:C1, A2:C2, A3:C3] “1” THEN
[A1] = “1”
End If
End With
End Sub

INSTEAD OF THIS ‘Sub TEST2() WORKS
Sub TEST2()
With Worksheets(“Sudocu”).[A1]
If .Text = “” _
And [A1] “1″ And [A2] “1″ And [A3] “1″ _
And [A4] “1″ And [A5] “1″ And [A6] “1″ _
And [A7] “1″ And [A8] “1″ And [A9] “1″ _
And [A1] “1″ And [B1] “1″ And [C1] “1″ _
And [D1] “1″ And [E1] “1″ And [F1] “1″ _
And [G1] “1″ And [H1] “1″ And [I1] “1″ _
And [A1] “1″ And [B1] “1″ And [C1] “1″ _
And [A2] “1″ And [B2] “1″ And [C2] “1″ _
And [A3] “1″ And [B3] “1″ And [C3] “1″ Then
[A1] = “1”
End If
End With
End Sub

SANDY HANBERG
847-966-2299
SANDYGERRI@NETZERO.COM