I was modifying one of the macro to work with SW2013 (VB7)

When I run the macro, it returns the following error

Can someone please help me to modify the code to work properly

Thanks,

JOHN