В коде Excel VBA один макрос работает, когда запускается сам по себе, но отлаживается при запуске в группе.

Question

Моя программа работает, вызывая несколько макросов следующим образом:

Sub RunAll()
Call BenNaimGal
Call NunnariMaureen
Call FarberovDimitry

End Sub

Моя программа прерывается на macro3 Вызов FarberovDimitry, который по сути является точной копией macro1 и macro2, которая работает нормально.Когда macro3 запускается сам по себе, он работает отлично, но когда я пытаюсь запустить всю программу, некоторые строки отсутствуют,

Rng4.Copy Destination:=WS.Range("A5:AJ50")

A5: AJ50 пусто

Ниже приведен код для этих3 макроса

Sub BenNaimGal()
Dim WS As Worksheet
Dim Rng As Range
Set Rng = Range("A1:AJ14")
Application.Workbooks.Add
Set WS = Application.ActiveSheet
Rng.Copy Destination:=WS.Range("A1:AJ20")
Rows(3).RowHeight = 36
Rows(4).RowHeight = 64.5
Rows("6:50").RowHeight = 15
Columns(11).ColumnWidth = 11.57
Columns(12).ColumnWidth = 30.43
Columns(14).ColumnWidth = 15.57
Columns(22).ColumnWidth = 14
Columns(24).ColumnWidth = 13.71
Columns(25).ColumnWidth = 13.71

Set column1 = Columns("A:J")
column1.Hidden = True
Set column2 = Columns("R:T")
column2.Hidden = True
Set column3 = Columns("M:M")
column3.Hidden = True
Set column4 = Columns("U:U")
column4.Hidden = True
Set column5 = Columns("W:W")
column5.Hidden = True
Set column6 = Columns("Z:AJ")
column6.Hidden = True
[N1].Value = "Gal"
[O1].Value = "Ben-Naim"
[N2].Value = "CA . PBI. 3410"

WS.SaveAs "L:\17_Year_End_KPIs\2018\Master KIP 2018 v1 - Distribution\Ben- 
Naim, Gal"

End Sub

Sub NunnariMaureen()
Dim WS As Worksheet
Dim Rng As Range
Set Rng1 = Range("A1:AJ4")
Set Rng2 = Range("A15:AJ25")
Application.Workbooks.Add
Set WS = Application.ActiveSheet
Rng1.Copy Destination:=WS.Range("A1:AJ4")
Rng2.Copy Destination:=WS.Range("A5:AJ50")
Rows(3).RowHeight = 36
Rows(4).RowHeight = 64.5
Rows("6:50").RowHeight = 15
Columns(11).ColumnWidth = 11.57
Columns(12).ColumnWidth = 30.43
Columns(14).ColumnWidth = 15.57
Columns(22).ColumnWidth = 14
Columns(24).ColumnWidth = 13.71
Columns(25).ColumnWidth = 13.71


Set column1 = Columns("A:J")
column1.Hidden = True
Set column2 = Columns("R:T")
column2.Hidden = True
Set column3 = Columns("M:M")
column3.Hidden = True
Set column4 = Columns("U:U")
column4.Hidden = True
Set column5 = Columns("W:W")
column5.Hidden = True
Set column6 = Columns("Z:AJ")
column6.Hidden = True
[N1].Value = "Nunnari"
[O1].Value = "Maureen"
[N2].Value = "CA . C&I. 3420"

WS.SaveAs "L:\17_Year_End_KPIs\2018\Master KIP 2018 v1 - 
Distribution\Nunnari, Maureen"

End Sub

Sub FarberovDimitry()
Dim WS As Worksheet
Dim Rng As Range
Set Rng3 = Range("A1:AJ4")
Set Rng4 = Range("A26:AJ33")
Application.Workbooks.Add
Set WS = Application.ActiveSheet
Rng3.Copy Destination:=WS.Range("A1:AJ4")
Rng4.Copy Destination:=WS.Range("A5:AJ50")
Rows(3).RowHeight = 36
Rows(4).RowHeight = 64.5
Rows("6:50").RowHeight = 15
Columns(11).ColumnWidth = 11.57
Columns(12).ColumnWidth = 30.43
Columns(14).ColumnWidth = 15.57
Columns(22).ColumnWidth = 14
Columns(24).ColumnWidth = 13.71
Columns(25).ColumnWidth = 13.71


Set column1 = Columns("A:J")
column1.Hidden = True
Set column2 = Columns("R:T")
column2.Hidden = True
Set column3 = Columns("M:M")
column3.Hidden = True
Set column4 = Columns("U:U")
column4.Hidden = True
Set column5 = Columns("W:W")
column5.Hidden = True
Set column6 = Columns("Z:AJ")
column6.Hidden = True
[N1].Value = "Dimitry"
[O1].Value = "Farberov"
[N2].Value = "CA . PBI. 3409"

WS.SaveAs "L:\17_Year_End_KPIs\2018\Master KIP 2018 v1 - 
Distribution\Farberov, Dimitry"

End Sub

Answer 1

Было бы лучше указать лист рнг.

Dim WS As Worksheet
Dim Rng As Range
Dim myWs As Worksheet

Set myWs = ThisWorkbook.Sheets(1)
Set Rng = myWs.Range("A1:AJ14")