Save and close file if there is text in cells

[lfmemp]

I do have the below code to safe a file and close it:

Sub Save_Close()
'
' Save_Close Macro
'
'
ActiveWorkbook.Save
Application.Quit
End Sub



I would like to do additionally something else. I need a macro to do the above, but it should first check if cells A2:C9 do contain text. The text could be anything.
If there is text in ALL the cells, then the macro should save and close the file. If there is text missing in at least one of the cells, a message box should appear saying 'Please fill out all cells'.

Can somebody help?

Thanks

[bheanloh]

Try

Sub Save_Close()

Dim rng As Range
For Each rng In Range("A2:C9")
    If rng.Value = "" Then MsgBox "Please fill out all cells": Exit Sub
Next
ActiveWorkbook.Close 1
End Sub

[lfmemp]

Thank you...It is working. :-)
I have one more question though.
I realized though that sometimes the range will change. What I mean is that if I have say rows 2 to 9 and columns A to C that can be filled out in my worksheet "Data1" with data, the user may need to fill out only rows 2 to5. The requirement though is that all columns A to C must be filled out. So not necessarily all rows must be filled out, but all columns.
Also if one datapoint is filled out in a row, say A2, but B2 and C2 are left out, I also need the message box "Please fill out all cells" to appear.

Thank you

[bheanloh]

Try this

Sub Save_Close()
Dim i As Long, j As Long, k As Long
Dim rng As Range
k = 0
For i = 2 To 9
    For j = 1 To 3
        If Cells(i, j).Value <> "" Then k = k + 1
    Next j
    If k <> 0 And k <> 3 Then MsgBox "Please fill out all cells": Exit Sub
    k = 0
Next i
ActiveWorkbook.Close 1
End Sub