Hello,
I requested help a few month ago with this code, I was able to find a solution and customized like the following:
Sub Externalabelshn() '
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False...