Hello @RockieM
Please try this one:
Dim oCurrentSheet As Sheet oCurrentSheet = ThisDoc.Document.ActiveSheet ' Iterate through the sheets Dim oSheet As Sheet For Each oSheet In ThisDoc.Document.Sheets oSheet.Activate oSheet.Update Next