Не работает Sub из главного Sub

Всем привет,

Основная задача в том, чтобы из главной программы передать в дополнительную несколько переменных. Суть проблемы: программы выполняет 1 стоку и выходит из нее, продолжая выполнение основного алгоритма

Код:

Call HeatMapComlex(RobotName = RobotName, heat_map_start = HeatMapLastRow - 48, heat_map_end = HeatMapLastRow, amount_of_process = UBound(ProcessPerRobot, 2))
On Error Resume Next

2

Sub HeatMapComlex(RobotName As String, heat_map_start, heat_map_end, amount_of_process As Integer)

Dim header_columns, RobotCal, row_num, col_num, time_cell As Integer
Dim HeatMap(0 To 47) As Boolean


Worksheets(RobotName).Activate

For row_num = heat_map_start To heat_map_end

Из второй программы выходит сразу после выполнения Worksheets(RobotName).Activate