Добрый день.
Стал выдавать макрос ошибку. Хотя раньше работал.В чём может быть причина?
Стал выдавать макрос ошибку. Хотя раньше работал.В чём может быть причина?
Код |
---|
Sub MyPrint() Dim sh As Worksheet, s With ThisWorkbook For Each sh In .Worksheets If Not sh.[P5].Value = 0 Then s = s & sh.Name & "," Next sh s = Split(Left(s, Len(s) - 1), ",") .Worksheets(s).PrintOut Copies:=1 End With End Sub |