You could put this code behind the worksheet affected, the event trigger
will test if cell B38 is selected and change the color, else reset
it.........

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$38" Then
Range("B38").Interior.ColorIndex = 36
Else
Range("B38").Interior.ColorIndex = 0
End If
End Sub

--
Cheers
Nigel



"Phil H" wrote in message
...
On line six below, the interior color should be set to 36 only when:
1. Cell B38 is selected (by the "GoTo" macro)
2. The worksheet is active.
So, when another cell is selected, or the user leaves the worksheet, the
cell returns to its original interior color.

How should this code be modified?

Sub GoToTFMChangeRequestWorksheetComptroller()
Application.ScreenUpdating = False
Sheets("TFM Change Request Worksheet").Select
Application.Goto Reference:=Range("A38"), Scroll:=True
Application.Goto Reference:=Range("B38"), Scroll:=False 'Places curser
off
screen
Selection.Interior.ColorIndex = 36
ActiveWindow.Zoom = 100
Application.ScreenUpdating = True
End Sub