You need the following code to get your loop to work correctly. Dim Current As Worksheet For Each Current In Worksheets Current.Select Next Current If you are in the market for the newest version of Microsoft Office, you can purchase a lifetime membership from Stack Social for Windows of Mac from the link below: https://www.stacksocial.com/sales/mic...