Public Sub VerCheck() 
   Dim i As Integer
For i =  1  To  24 
    UserForm1.Controls("CheckBox" + CStr(i)).Visible = UserForm1.Controls("CheckBox" + CStr(i)).Enabled
Next i
UserForm1.Repaint
End Sub

wb2.Worksheets(strNameSh).Columns.AutoFit
Columns("A:A").ColumnWidth =  12 
figgery.VerCheck
Unload Me
End Sub

Dim strM, strY As String ' îïðåäåëåíèå íàçâàíèÿ ëèñòà
Dim m As Integer, y As Integer 'ïàðàìåòðû ëèñòà
Dim strNameSh As String
Dim Sh As Object


Dim wb1 As Object
Dim wb2 As Object

Set wb1 = Application.Workbooks.Open(path) 'êíèãà êîòîðóþ íóæíî îòêðûòü
Set wb2 = Application.Workbooks(UserForm1.ipath) 'êíèãà ñ êîòîðîé çàïóùåíà ïðîãðàììà




strNameSh = " íå âûáðàíî" 'âûáèðàåì èìÿ ïðèñâàåìîãî ëèñòà
strM = Switch(Me.OptionButtonJan, "01", Me.OptionButtonFeb, "02", Me.OptionButtonMar, "03", Me.OptionButtonApr, "04", Me.OptionButtonMay, "05", Me.OptionButtonJun, "06", Me.OptionButtonJul, "07", Me.OptionButtonAug, "08", Me.OptionButtonSep, "09", Me.OptionButtonOct, "10", Me.OptionButtonNov, "11", Me.OptionButtonDec, "12")
strY = IIf(Me.OptionButton2010, "10", "09")
strNameSh = strM + "," + strY
Set Sh = wb2.Sheets.add
Sh.Name = strNameSh



MsgBox path
    If Len(Trim(path)) =  0  Then 'áûë ëè âûáðàí ïóòü
        MsgBox "óêàæèòå ïóòü ê ôàéëó"
        Me.Obzor.SetFocus
    Exit Sub
    End If
    
Application.DisplayAlerts = False

'êîïèðóåì äèàïàçîí
wb1.Worksheets( 1 ).Range("A1:H147").Copy

wb2.Worksheets(strNameSh).Range("A1:H147").PasteSpecial
wb1.Close


Columns("B:B").ColumnWidth =  25 
wb2.Worksheets(strNameSh).Rows.AutoFit
wb2.Worksheets(strNameSh).Columns.AutoFit
Columns("A:A").ColumnWidth =  12 
figgery.VerCheck
Unload Me
End Sub

CheckWrkSh
UserForm1.Repaint
DoEvents
End Sub