Since you're using Excel 2010, you should probably change this line:
Code:
If Target.Cells.Count > 1 Then Exit Sub
To this:
Code:
If Target.Cells.CountLarge > 1 Then Exit Sub
Otherwise, if the user selected all of the cells on the sheet you will get a runtime overflow error.