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
Bookmarks