In the .xls file (the one that works), you had the following code in sheets "2010" and "2011"

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
If Target.Address = "$H$3" Then
    Set MyRange = Cells.Find(what:=Target.Value, After:=Target)
    If Not MyRange Is Nothing Then MyRange.Select
End If
End Sub

In the .xlsm workbook (the one that doesn't work) there is no code in any of the sheets, only the following code in the workbook module:

Private Sub Workbook_Open()

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

Maybe you have uploaded the wrong example?


As lilsnoop says, the code, together with the CF, causes the cells to change colour.


I'm not entirely sure what it is you are trying to achieve as the cell H3 doesn't seem particularly relevant.


Regards, TMS