Belonging Row is not clear in Code

still not working

put in this code now

With Sheets("Sheet1")

    .Range(.[a4].Offset, (DateDiff("d", CDate("01.01.2011"), Target)), .[nb4]).Interior.ColorIndex = 3

End With

does not work....

same error occuring... missmtach... run-time error...

have you tried out the code in my file?