If you want my macro to works fine with many books opened even when
selecting an other book you can specify the book

replace "in Sheets" by "in ThisWorkBook.Sheets"
or specifie a choosen book