Run-time error '13': Type mismatch

[pells]

I am trying to the the following code but I am getting this error, run-time error '13': Type mismatch:

If ActiveSheet.Range("G11:G88") > 0 Then
MsgBox "No code entered!", vbExclamation, "Error"
Exit Sub
End If

Am I using the correct syntax and does anyone know how to resolve my error so that it works?

Many thanks.

 

[JackDanIce]

Take the last bit of code I suggested and modify it to:

If Application.CountBlank(Range("H11:H88")) > 0 OR _
   Application.Max(Range("G11:G88")) > 0 Then
MsgBox ("No code entered!", vbExclamation, "Error")
        Exit Sub
End If

 

[pells]

Take the last bit of code I suggested and modify it to:

If Application.CountBlank(Range("H11:H88")) > 0 OR _
   Application.Max(Range("G11:G88")) > 0 Then
MsgBox ("No code entered!", vbExclamation, "Error")
        Exit Sub
End If

Many thanks for this. I have tried it and am getting the following error:

Compile error:

Expected: =

Any ideas?

 

[JackDanIce]

I included some brackets that weren't needed:

If Application.CountBlank(Range("H11:H88")) > 0 Or _
   Application.Max(Range("G11:G88")) > 0 Then
    MsgBox "No code entered!", vbExclamation, "Error"
    Exit Sub
End If

 

[pells]

I included some brackets that weren't needed:

If Application.CountBlank(Range("H11:H88")) > 0 Or _
   Application.Max(Range("G11:G88")) > 0 Then
    MsgBox "No code entered!", vbExclamation, "Error"
    Exit Sub
End If

I have tried this but it doesnt work.

If I enter something into cell H11, I still get the error message "No code entered!" although it shouldnt appear. If I remove the cell contents, I get the error as you would expect.

Any ideas?

 

[pells]

Many thanks for all your replies, they have been most helpful.

The following code works perfectly for one cell reference but not for a range of cells. I have tried various combinations of the code that you have all supplied, but I still cant seem to get it to work and was wondering whether any of you super guru's will be able to assist me again:

The code that works perfectly for one cell is:

If ActiveSheet.Range("G89") > 0 And IsEmpty(ActiveSheet.Range("H11")) Then
MsgBox "No code entered!", vbExclamation, "Error"
Exit Sub
End If

I need my code to be changed (range highlighted in red) to the following so that it works as it should:

If ActiveSheet.Range("G89") > 0 And IsEmpty(ActiveSheet.Range("H11:H88")) Then
MsgBox "No code entered!", vbExclamation, "Error"
Exit Sub
End If

Once again many thanks and hope that you will be able to help me once more?