combine codes

Hi,

I have two codes that workes seperatly, but when I try to combine these two itīs not working.

First code located in the Sheet10

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H15").Value < Range("E15").Value Then
     MsgBox "Eulers gjelder ikke", vbCritical
     
End If

End Sub

Second code located in sheet called Kalkulasjon

Private Sub CommandButton1_Click()
    OptionButton1.Value = False
    OptionButton2.Value = False
    OptionButton3.Value = False
    OptionButton4.Value = False
    OptionButton5.Value = False

    Range("I3:I9,L3:L9,P13:AE13,P16").ClearContents
End Sub

Any help is much appreciated

Regards
Oeysbrei

marreco,

Thanks for the reply.
Iīve tryed it but it dident work.

Oeysbrei

Hi,

Anyone out there to help me solv this challenge?

Regards
Oeysbrei

Hi JosephP,

In my first post of this thread I posted the two codes and where they are located.
When I try to combine these two I get error, and the first line where it says OptionButton1.Value = False turns yellow.

I have tryed different, but iīm just in the startpitch regarding macrocoding.
I have attached a printscreen of my code with the errormessage for you to have a look at.

Hope you can help me solv this

Regards
Oeysbrei