Hi everyone, probably an easy question but i dont know how to go about this.
If i select a range of cells manually how can i write a piece of code that
will look at each cell in that selected range and see if it is blank or has
text in it? any help would be much appreciated. thanks

what ive already got :

Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Exit_Error:
If Target.Interior.ColorIndex = 36 Then
If target.cells.count 2 then
' LOOK IN EACH CELL
'if one or more cells in target < "" then
'Do Step1
'elseif all cells in target = "" then
'Do Step 2
'end if
end if
end if