Ето това е кода:
Private Sub Sheet1_CommandButton1_Click()
Dim strLine As String, strMass() As String, intCount As Long, strData As String, sObject As Shape
Dim wb1, wb2 As Workbook
Dim ws1, ws2 As Worksheet

strData = InputBox(Prompt:="Âúâåäåòå äàòàòà â ðåäà:ÃîäèíàÌåñåöÄåí", _
Title:="Âúâåäåòå äàòà", Default:="YearMonthDay")
If strData = Cancel Then Exit Sub
If strData = vbNullString Then Exit Sub

On Error GoTo Errhandler
Open "FileName_" & strData & ".csv" For Input As #1
On Error GoTo 0

Do Until EOF(1)
Line Input #1, strLine
strMass() = Split(strLine, ",")
intCount = intCount + 1
Sheet1.Range("A" & intCount) = strMass(0)
Sheet1.Range("B" & intCount) = strMass(1)
Sheet1.Range("C" & intCount) = strMass(2)
Sheet1.Range("D" & intCount) = strMass(3)
Sheet1.Range("E" & intCount) = strMass(4)
Sheet1.Range("F" & intCount) = strMass(5)
Loop

Close

'Ñêðèâàíå íà áóòîíà â íîâèÿò ôàéë'
For Each sObject In ActiveSheet.Shapes
sObject.Visible = False
Next
ActiveWorkbook.SaveAs Filename:="FileName_" & strData & ".xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

Exit Sub
Errhandler:
MsgBox "Ãðåøêà! Ôàéë ñ òàêàâà äàòà íå ñúùåñòâóâà. Ïðîãðàìàòà ùå ñå èçêëþ÷è."
End Sub