Hi!
I have this code:
Private Sub ComboBox3_Click()
Range("priskalk!$L$12").Value = ComboBox3.Value
pr_ekstrapris
pr_pakkepris
pr_hotelpris
If hotelpris < "" Then
txt_hotel.Text = hotelpris
txt_hotel.Enabled = False
End If
End Sub
And its working

But if i change the code into a IF then i get this Microsoft error
and excel crass

The code i use is:
Private Sub ComboBox3_Click()

Range("priskalk!$L$12").Value = ComboBox3.Value
If fradato.Text < "" And Tildato.Text < "" Then
pr_ekstrapris
pr_pakkepris
pr_hotelpris
If hotelpris < "" Then
txt_hotel.Text = hotelpris
txt_hotel.Enabled = False
End If
End If
End Sub
And the only diff between the first code and yhe next is:

If fradato.Text < "" And Tildato.Text < "" Then

I don't understand why ?