Your loop is not finding the strWeek in the Range provided. intRowshould be classed as a Long. However, I think your real issue is withstrWeek.strWeek is a String. Isn't column A the date field?