Error in Vba Code

[srivardhan09]

Dear All,

Can you please help me sorting this code

Private Sub CommandButton1_Click()

If CheckBox1.Value = True Then

Range("a1:b7").AutoFilter Field:=1, Criteria1:="A"

GoTo jump1

Else

If CheckBox1.Value = False Then

GoTo jump1

jump1:

If CheckBox2.Value = True Then

Union(Selection, Range("a1:b7")).AutoFilter Field:=1, Criteria1:="B"

GoTo jump2

Else

If CheckBox2.Value = False Then

GoTo jump2

jump2:

If CheckBox3.Value = True Then

Union(Selection, Range("a1:b7")).AutoFilter Field:=1, Criteria1:="C"

End If

End If

End If

End If

End If

End Sub

Regards,

Srivardhan