Check Columns For Blanks

Is there a way that when looking at selected cells you can check their formatting?

I am trying to write some vba code to check for blank spaces in a number of columns (doing it one column at a time at the moment).

However, the current code im using messes up as at the bottom of the data there is a Total: column which is formatted in blue. Total: is only in the A column so the code I have won't work for other columns when no data is in them..


Range("A65536").Select
Selection.End(xlUp).Select
If Selection.Cells.Row > 6 Then ' there's some data in the sheet since we didn't hit the header row - now look for blank currency cells next to occupied lessee prospect cell
While Selection.Cells.Row > 6
If Selection.Value = "" Then ' there's a blank entry in the sheet - add error to 'passed' string
passed = "Blank spaces in ACC column " & Selection.Cells.Column & Selection.Cells.Row & " - please correct." & vbCrLf
End If
Selection.Cells.Offset(-1, 0).Select
Wend
End If

If there isnt any data at all up to the header row but blank rows between the header and the bottom total (blue) row it doesnt work.. how can i get around this? I thought perhaps checking that it isn't blank OR the total row somehow by checking the color (ie formatting)?