can't run a simple recorded macro

[mikerickson]

The code is looking for "29/01/2016".
The cell contains "29/02/2016"

It is finding nothing and, therefore, erroring when it tries to Activate Nothing.

Try

Dim myCell as Range

Set myCell = Range("E5:W5").Find(What:="29/01/2016", After:=Range("E5"), LookIn:=xlFormulas _ 
    , LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ 
    MatchCase:=False, SearchFormat:=False)

If myCell is Nothing then
    MsgBox "nothing found"
Else
    myCell.Activate
End If