You code looks fine to me and it compiled correctly. What line is
giving you the error?


Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Thu, 12 Mar 2009 08:03:02 -0700, 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