Highlight cells

[kamranyd]

Originally Posted by kamranyd  View Post
Code:
 Attn_Name = .Range("B13")
      If Len(Attn_Name) = 0 Then
         MsgBox "Please enter receiver name", vbCritical, "Quotation Receiver Name Error"
         Range("B13").Activate
         ActiveWindow.ScrollRow = 13
         Exit Sub
      End If

Hello, when the cell is blank these codes take towards the blank cell for input the value, so i want few change in these codes that when it take me towards the blank cell it should also change background color whatever color i want of a cell like highlighting and when value is input it should revert back the color before.