Private Sub CommandButton1_Click()
    Dim dFirstDate As Date
    Dim dLastDate As Date
    Dim dDate As Date
    Dim iDay As Integer
    Dim sMonthname As String
    Dim iMonthNum As Integer
    Dim iYear As Integer
    Dim i As Integer
    Dim wb As Excel.Workbook

dFirstDate = ActiveWorkbook.Worksheets("Week Summary").Range("C7").Value
dLastDate = ActiveWorkbook.Worksheets("Week Summary").Range("W7").Value
 If IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("C7")) Then
   MsgBox ("Ââåäèòå äàòó íà÷àëà íåäåëè â ëèñòå Week Summary")
     ElseIf IsEmpty(ActiveWorkbook.Worksheets("Week Summary").Range("W7")) Then
   MsgBox ("Ââåäèòå äàòó êîíöà íåäåëè â ëèñòå Week Summary")
     Else
       For dDate = dFirstDate To dLastDate
iMonthNum = DatePart("m", dDate)
iDay = DatePart("m", dDate)
iYear = DatePart("yyyy", dDate)
sMonthname = fGetMonthName(iMonthNum)
wb = Workbooks.Open("\\eu.dir.kongo.com\RU\Shared Projects\Operations Reports\QC Reports\"&iYear&"\QA Crush "&sMonthname&" "&iYear&".xls")



  

Next dDate
End If



 
  
End Sub