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
|