J
JonMitsu
code example:
Private Sub CommandButton1_Click()
Dim filename As String
Dim i As Integer
Sheets.Add Type:="C:\MyBook.xls"
Sheets(1).Select
Sheets(1).Move
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:="C:\MyBook.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = False
Workbooks(1).Activate
Sheets(1).Select
End Sub
--When I press the button 7 times VB Show Error message:
--Run-time error 1004:
--Method Add of object Sheet failed
Please help. WHY DO THIS PROBLEM
Private Sub CommandButton1_Click()
Dim filename As String
Dim i As Integer
Sheets.Add Type:="C:\MyBook.xls"
Sheets(1).Select
Sheets(1).Move
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs filename:="C:\MyBook.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Application.DisplayAlerts = False
Workbooks(1).Activate
Sheets(1).Select
End Sub
--When I press the button 7 times VB Show Error message:
--Run-time error 1004:
--Method Add of object Sheet failed
Please help. WHY DO THIS PROBLEM