How to change the cell fill color if cell is no longer blank?

[antman2988]

Hello,

I have a checkbox that changes the color of a cell if it is checked. The user can't print the page until a value is entered into the highlighted field. Both the checkbox and restrict printing modules are working properly.

How do I change the color of the highlighted field once the user enters a value? I wrote the below code, but it isn't working. I am newer to VBA so any help is appreciated!

Edit: The code works fine when I manually run it. How do I make sure it runs once a user enters a value?

[COLOR=#333333]Private Sub Can_Print()[/COLOR]

[COLOR=#333333]    If IsEmpty(Range("G54")) = False Then[/COLOR]

[COLOR=#333333]        MsgBox "You may now print."[/COLOR]
[COLOR=#333333]        Range("G54").Interior.Color = RGB(221, 235, 247)

    End If[/COLOR]

[COLOR=#333333]End Sub[/COLOR]

 

[Fluff]

How about

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.CountLarge > 1 Then Exit Sub
   If Target.Address(0, 0) = "G54" And Target.Value <> "" Then
      Target.Interior.Color = RGB(221, 235, 247)
      MsgBox "You can print"
   End If
End Sub

This needs to go in the sheet module for that sheet