Error check to see if cells are filled in

**nenadmail** · 07-30-2012, 05:35 PM

I have this MICRO that simply selects a cell

Sub Step4()
    Range("A91").Select
End Sub

... but I DO NOT want it to do that IF cells "D4" and/or "J4" and/or "G4 are blank.

Rather return an error message saying:
(If D4 is blank) "Please enter your name."
(If J4 is blank) "Please enter the quantity of your order."
(If G4 is blank) "Please enter a language."

Thanks!

**tigeravatar** · 07-30-2012, 05:55 PM

nenadmail,

One way...

Sub Step4()
    Dim i As Long
    Dim strAddress As String
    For i = 1 To 3
        strAddress = Choose(i, "D4", "J4", "G4")
        If Len(Trim(Range(strAddress).Value)) = 0 Then
            Range(strAddress).Select
            MsgBox "Please enter " & Choose(i, "your name.", "the quantity of your order.", "a language.")
            Exit Sub
        End If
    Next i
    Range("A91").Select
End Sub