Save a range of cells to replace a file

[raj08536]

I created successfully a new file using the code below. But when I try to replace the file with new data, it ask me to debug.

Sub CreateFAIDMaster()

Dim dirPath, fName As String, newWb As Workbook, thisWb As Workbook
Set thisWb = ThisWorkbook
dirPath = thisWb.Path
fName = ActiveSheet.Range("m1").Value
Application.ScreenUpdating = False
Set newWb = Workbooks.Add
thisWb.Sheets("FAIDMaster").Range("A1:C50").Copy newWb.Sheets("Sheet1").Range("A1")
newWb.SaveAs Filename:=dirPath & "\" & fName
newWb.Close
Application.ScreenUpdating = True
MsgBox "Workbook created at:" & vbCrLf & vbCrLf & dirPath & "\" & fName

End Sub

Please change the code to replace the existing file with new data.

 

[davesexcel]

What is the error you are getting, what line gets highlighted

 

[raj08536]

Thanks for responding....

Error

 

[davesexcel]

What do you have in M1?

 

[raj08536]

What do you have in M1?

 

[davesexcel]

Ya, I was just wondering, could it be because there is no extension?

 

[raj08536]

Ya, I was just wondering, could it be because there is no extension?

Ok. Now I tried with "FAIDMaster.xlsx"

 

[davesexcel]

When exactly does this error pop up. If you get a message pop up that says the file already exists and you want to replace it?

If you say no, then the error will occur.

Add Application.DisplayAlerts = False

Dim dirPath As String, fName As String, newWb As Workbook, thisWb As Workbook
Set thisWb = ThisWorkbook
dirPath = thisWb.Path
fName = ActiveSheet.Range("m1").Value
Application.ScreenUpdating = False
Set newWb = Workbooks.Add
thisWb.Sheets("FAIDMaster").Range("A1:C50").Copy newWb.Sheets("Sheet1").Range("A1")
Application.DisplayAlerts = False
newWb.SaveAs Filename:=dirPath & "\" & fName
newWb.Close
Application.ScreenUpdating = True
MsgBox "Workbook created at:" & vbCrLf & vbCrLf & dirPath & "\" & fName