Blankcell

Private Sub CommandButton1_Click()

Click

Dim mycell As Range Dim myrange As Range

Set myrange Worksheets("Blank Cells").Range("C3:H11")

For Each mycell In myrange

If mycell.Value =

Then

mycell.Interior.ColorIndex = 4 mycell.Value="Blank Cell" End If

Next mycell

End Sub