Verifying that selected cells all contain values

[Johannareta]

Hi everyone, I am trying to have the user select a range to input. I have been able to have set a parameter for the number of columns selected. I can not figure out what line would show error if the columns selected did not have data. Current code will be attached below:

If tablerange.Column.Count <> 5 Then
MsgBox "Must select 5 columns of data. Try again."


I'm a noob to all this so excuse my poor wording

 

[Logit]

.
Paste this into a Routine Module :

Option Explicit


Sub RBlank()


Dim rng As Range, cel As Range


Set rng = [A2, C5, F7, G3] 'change as required
For Each cel In rng
    If cel = "" Then
        MsgBox "Cell " & cel.Address & " is blank.", vbInformation, "Blank Cell"
    End If
Next
End Sub

You can edit the rng to include a range of cells instead of individual cells : Set rng = [A2, C1:D25, F7, G3]

This macro will work if you are referencing a small number of individual cells. If you have a large number of non-continguous cells you'll need to use
something else .. otherwise your user will be press the ENTER key for all the empty cells. Could be tiresome depending on how many cells are blank.