Thanks so much for the help. I have followed the copy and paste procedure, pasting the whole macro from the window above, and tried the macro. I get "Compile Error: Expected End Stub" and when I click help, I get:

"An End procedure statement must match the procedure in which it occurs. This error has the following cause and solution:

• You used End Function or End Property to end a Sub procedure.Use End Sub for this type of procedure"

It seems that the macro does have "End Sub" so what do I need to do?