This workbook is suppose to work by clicking a SAVE button on first sheet which should generate new workbook by copying the active workbook and automatically renaming and saving in my Documents folder. However, it crashes after first use. At second use its reporting the Run-time error 1004: Method 'SaveCopyAs' of object '_Workbook failed'

Dim myRange

Set myRange = Worksheets("Employee List").Range("B403")

Set Newbook = ActiveWorkbook

With myRange
ActiveWorkbook.SaveCopyAs myRange
End With

I'm very new to macros and formulas but when going into VBA in Excel it reports the following line as having the error and seems to want a Filename (ActiveWorkbook.SaveCopyAs myRange) but why would it work the first time correctly but then crash? Any help would be much appreciated.