А вот так?
[vba]Код
Sub Macro()
Application.ScreenUpdating = False
' Call ttt1(Sheets("В5"))
' Call ttt1(Sheets("В7,5"))
Call ttt1(Sheets("В10"))
' Call ttt1(Sheets("В12,5"))
' Call ttt1(Sheets("В15"))
' Call ttt1(Sheets("В20"))
Call ttt1(Sheets("В22,5"))
Call ttt1(Sheets("В25"))
Call ttt1(Sheets("В30"))
Call ttt1(Sheets("В35"))
Call ttt1(Sheets("В40"))
Call ttt1(Sheets("В45"))
Call ttt1(Sheets("М75"))
' Call ttt1(Sheets("М100"))
' Call ttt1(Sheets("М150"))
' Call ttt1(Sheets("М200"))
' Call ttt1(Sheets("М250"))
' Call ttt1(Sheets("М300"))
Application.ScreenUpdating = True
MsgBox "готово!", vbInformation
End Sub
[/vba]