Program works when programmed, but when re opening Excel I get a Compile Error: Expec

[Travis C]

Formula as follows... i am not sure what is causing the error... sorry for breaking rule 3.

Sub COLOR()
Sub Worksheet_Change(ByVal Target As Excel.Range)
If Intersect(Target, Range("AH6:AH55000")) Is Nothing Then
Exit Sub
Else
DidCellsChange
End If
End Sub

Sub DidCellsChange()
Dim KeyCells As String
' Define which cells should trigger the KeyCellsChanged macro.
KeyCells = "AH6:AH55000"

' If the Activecell is one of the key cells, call the
' KeyCellsChanged macro.
If Not Application.Intersect(ActiveCell, Range(KeyCells)) _
Is Nothing Then KeyCellsChanged

End Sub

Sub KeyCellsChanged()
Dim Cell As Object

For Each Cell In Range("AH6:AH55000")

If Cell = "AH" Then

' Make the background color of the cell the 3rd color on the
' current palette.
ElseIf Cell = "DISCARD" Then
Cell.EntireRow.Interior.ColorIndex = 3
ElseIf Cell = "" Then
' Otherwise, set the background to none (default).
Cell.EntireRow.Interior.ColorIndex = xlNone

End If

Next Cell

End Sub

[firexfighterx]

You arnt running the program when the excel file is open are you? If you are then the reader of the excel file will fail because someone else (you) have the file opened somewhere else.

[Killer42]

What are the details of the error? All that made it into the title is "Expec".