DimxSh AsWorksheet[COLOR=#0A0101][FONT=Consolas] Application.ScreenUpdating = False[/FONT][/COLOR] [COLOR=#0A0101][FONT=Consolas] For Each xSh In Worksheets[/FONT][/COLOR] [COLOR=#0A0101][FONT=Consolas] xSh.Select[/FONT][/COLOR] [COLOR=#0A0101][FONT=Consolas] Call RunCode[/FONT][/COLOR] [COLOR=#0A0101][FONT=Consolas] Next[/FONT][/COLOR] Application.ScreenUpdating = True
کامنت