Nice one Dennis, if I could make one suggestion, adding the line -

Application.ScreenUpdating = False

as the first line TodaysFields macro speeds it up considerably.


Would also add -

Application.ScreenUpdating = True

as the last line.