Уважаемый форумчане, прошу не отказать в помощи новичку в VBA. Написан макрос - он у меня основной и еще у меня написан втрой макрос, который имеет определенное имя, скажите, как можно его имя вставить в основоой макрос, чтобы они работали вместе какие команды нужно использовать. Заранее спасибо.

делал, но у меня выдается ошибка
Ambiguous name detected

все равно таже проблема: вот мой оснвоной макрос

Sub Main()
'
' Ìàêðîñ4 Ìàêðîñ
' Ìàêðîñ çàïèñàí 26.07.2011 (User)
i = 6
Numb = 0

While i < 30
i = i + 1

Sts = Sheets("ñóùåñòâóþùèé ôîðìàò").Cells(i, 6).Value
If Sts <> "Close" Then
Rng = "A" & i & ":F" & i
Sheets("ñóùåñòâóþùèé ôîðìàò").Select
Range(Rng).Select
Selection.Copy

Numb = Numb + 1

Rng = "A" & Numb & ":F" & Numb
Sheets("New").Select

Range(Rng).Select
Cells(Numb, 1).Value = Numb
ActiveSheet.Paste
End If



Wend

Sub SaveF() - этот макрос я хочу вставить


End Sub

-------------------------------- а вот текст макроса SaveF


Sub SaveF(catalog As String, Filename As String)
'
' Ìàêðîñ3 Ìàêðîñ
' Ìàêðîñ çàïèñàí 27.07.2011 (User)
'

Sheets("New").Select
Sheets("New").Copy
Windows("Êíèãà1").Activate
ActiveWorkbook.SaveAs Filename:= _
catalog & Filename, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Спасибо с этим разобрался, скажите теперь еще одна возникла ошибка - run time error 9
в строке Sts = Sheets("существующий формат").Cells(i, 6).Value

Скажите из-за чего эта ошибка? Спасибо

Sub Main()
'
' Ìàêðîñ4 Ìàêðîñ
' Ìàêðîñ çàïèñàí 26.07.2011 (User)
i = 6
Numb = 0



While i < 30
i = i + 1

Sts = Sheets("существующий формат").Cells(i, 6).Value
If Sts <> "Close" Then
Rng = "A" & i & ":F" & i
Sheets("существующий формат").Select
Range(Rng).Select
Selection.Copy

Numb = Numb + 1

Rng = "A" & Numb & ":F" & Numb
Sheets("New").Select

With Range("A1:F5").Select
Range("F5").Activate
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
ActiveWindow.Zoom = 55
End With
Range(Rng).Select
Cells(Numb, 1).Value = Numb
ActiveSheet.Paste
End If



Wend



End Sub

т.е. номер 10?

правильно у меня назван лист, пробовал даже через нижнее подчеркивание писать и соответсвенно в коде менять на "существующий_формат" все равно ошибка 9

разобрался - у меня там должны формироваться новые лист вот они и были открыты - закрыл - ошибка прошла