Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
If Target.Address = "$A$1" Then
    Select Case Target.Value
    Case 1
     Call Макрос1
    Case 2
     Call Макрос2
   End Select
End If
End Sub

Public Sub sdf1()
Dim wSht As Worksheet, i, p
For i = 2 To Worksheets.Count
For Each wSht In Worksheets(Array(i))
p = wSht.Range("A2") 
Next wSht
Next
MsgBox WorksheetFunction.max(p)
End Sub

Sub макрос1()
 Dim sh As Worksheet, s$
 s = Worksheets("qwert iop" ;) .[A1].Value
Application.ScreenUpdating = False

Sheets(Array("qwert iop", "qwert klop", "qwert vret", "qwert serp", "qwert aswer" ;) ).Copy
 With ActiveWorkbook
For Each sh In .Worksheets
sh.UsedRange.Value = sh.UsedRange.Value
Next
.SaveAs ThisWorkbook.Path & "\" & s
.Close 0
End With
 
 
 s = Worksheets("pert iop" ;) .[A1].Value
Application.ScreenUpdating = False

Sheets(Array("pert iop", "pert klop", "pert vret", "pert serp", "pert aswer" ;) ).Copy
 With ActiveWorkbook
For Each sh In .Worksheets
sh.UsedRange.Value = sh.UsedRange.Value
Next
.SaveAs ThisWorkbook.Path & "\" & s
.Close 0
End With

s = Worksheets("fire iop" ;) .[A1].Value
Application.ScreenUpdating = False

Sheets(Array("fire iop", "fire klop", "fire vret", "fire serp", "fire aswer" ;) ).Copy
 With ActiveWorkbook
For Each sh In .Worksheets
sh.UsedRange.Value = sh.UsedRange.Value
Next
.SaveAs ThisWorkbook.Path & "\" & s
.Close 0
End With

Application.ScreenUpdating = True
MsgBox "Файлы сохранены в папку: " & ThisWorkbook.Path & "\"
End Sub