[okshef]

r-studio, несколько замечаний:

1. Макрос записывается в отдельный модуль, который предварительно создается, либо (не знаю как точнее назвать) - в модуль листа или книги.
2. Вы сохранили файл в формате xlsx вместо xlsm, поэтому макросы были удалены, поэтому никакого бреда. Но Excel должен был вас предупредить... Почему вы проигнорировали?
3. Я вам рекомендую не использовать имена в конструкции
   
   Код:

   Sheets("Sheet3").Activate

   Почему?
   Если вы хотите использовать ваш макрос на других компьютерах, то, если Office будет "русский", макрос может выдать ошибку при исполнении - не найдет такого листа. Лучше использовать порядковый номер листа
   
   Код:

   Worksheets(3).Activate

4. И еще одно. Зачем вам забивать книгу макросами для такой простейшей операции. По-моему, проще использовать гиперссылку - Создание гиперссылки на определенное место в книге.