checking whether a number of cells have values

Hi, is there a way to use IF statement to check whether cells have values in them? I'm using this code which doesn't work

If Worksheets("Main").Range("O5:O16, P5:P16").Range <> "" Then
'code here
end if

The alternate i'm thinking of is individually checking each cell

If Worksheets("Main").Range("O5").Range <> "" Then
if worksheets("Main").range("O6").range<> "" then
'code here
end if
end if

but it will make the codes look messy.

I don't know what you want to do if you find an empty cell but tinker with this

Sub vCheck()
For Each c In Range("O5:O16, P5:P16")
    If c.Value <> "" Then c.Select
Next c
End Sub

For the "c.Select" part of the code is where you put your own code.

Not know what code you want to execute depending on value makes this a little difficult to understand but try this code but replace the c.select with your executable code.

Sub vCheck()
For Each c In Range("O5:O16, P5:P16")
    If c.Value <> "" Then c.Select
    If c.Value = "" Then c.Select
Next c
End Sub

Sorry if this doesn't help but it works for my understanding.

If c.Value <> "" Then c.Select

runs through and finds the cells that have values. If you change it to:

If c.Value <> "" Then c.Copy

it will copy the cell with a value
if the cell has no value,

If c.Value = "" Then c.Select

the code will skip past the empty cell.

Try this

    If Application.CountA(Sheets("Main").Range("O5:P16")) > 0 Then
        'code here
    End If

This will run your code if there is any value at all in Range("O5:P16")

Hope this helps