Maybe it's in the other code surrounding this procedure. You may want to look
at that stuff.

Basta1980 wrote:

Hi,

I get a 'compile error: Block if without end if' when executing this code;

Private Sub CommandButton1_Click()

If CheckBox1 And CheckBox16 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox16 And CheckBox20 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox16 And CheckBox21 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox20 Then
Range("High") = 1
End If
If CheckBox1 And CheckBox17 And CheckBox21 Then
Range("Medium") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox19 Then
Range("High") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox20 Then
Range("Medium") = 1
End If
If CheckBox1 And CheckBox18 And CheckBox21 Then
Range("Low") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox19 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox20 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox16 And CheckBox21 Then
Range("Urgent") = 1
End If
If CheckBox2 And CheckBox17 And CheckBox19 Then
Range("Urgent") = 1
End If

End Sub

What to do?!

Thnx in advance

Basta

--

Dave Peterson