VBA Conditional Formatting with Blank Cells

[Rob.Marchel]

Hi All,

I'm trying to conditionally format blank cells within a large list of button operated VBA conditional formatted cells.

I can't get blank to work.

Sub CheckAndApplyBlank()
Dim r As Range

Application.ScreenUpdating = False

For Each r In Range("I6:AM205")
    With r
        If r.Value <> "" Then
            Select Case UCase(.Value)
                Case Is = *thisneedstorepresentblank?*: .Interior.ColorIndex = 1
            End Select
        End If
    End With
Next r

Application.ScreenUpdating = True

End Sub

Thanks in advance.

Rob.