trying to build in a check
 

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

trying to build in a check
 

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


bernd wrote:

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