trying to build in a check

[bernd]

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

 

[Dave Peterson]

One way:

Option Explicit
Sub StartIt()

Dim myCell As Range

Set myCell = Worksheets("ATM").Range("C4")

Select Case LCase(myCell.Value)
Case Is = LCase("plan.r"), LCase("inv.rg."), LCase("type")
MsgBox "Check again"
Exit Sub
End Select

MsgBox "other stuff here"

End Sub