Hi

This code works fine, but I'm sure it can be done more easy! Can
somebody help me out?

Sub start()
If Worksheets("atm").Range("C4").Value < "Plan.r." Then
MsgBox " check again",true
Exit Sub
End If
If Worksheets("atm").Range("D4").Value < "Inv.rg." Then
MsgBox "check again", true
Exit Sub
End If
If Worksheets("atm").Range("H4").Value < "type" Then
MsgBox "check again", true
Exit Sub
End If
etc...
etc....

Call AE_1B2

End Sub

Thanks in advance.

Bernd