Thread: Compile error
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Nigel[_2_] Nigel[_2_] is offline
external usenet poster
  
Posts: 735
Default Compile error
Nothing wrong with this code!

--

Regards,
Nigel




"Basta1980" wrote in message
...
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

Reply With QuoteReply With Quote