Всем привет!!! Народ подскажите пожалуйста что тут неправильно?
Код |
---|
Sub Copy1() Dim shRes As Worksheets Set shRes = Sheets("лист 1").Copy(Before:=ActiveSheet) If shRes.Index = 1 Then shRes.Name = 1 Else shRes.Name = shRes.Previous.Name + 1 End If End Sub |