Sub SaveCopy()
    Dim ThisBookName As String
    Dim ThisBookPath As String
    Dim NewBookName As String
    
    'REMEMBER FILE NAME AND PATH
    ThisBookName = ThisWorkbook.Name
    ThisBookPath = ThisWorkbook.Path
    
    'SAVE EXISTING WORKBOOK
    ThisWorkbook.Save
    
    'SET NAME OF COPY FILE
    NewBookName = "Copy of " & ThisBookName
    
    'DELETE ANY COPY OF THE COPY IF IT EXISTS
    If Dir(ThisBookPath & "\" & NewBookName) <> "" Then Kill ThisBookPath & "\" & NewBookName
    
    'SAVE BOOK AS A COPY
    ActiveWorkbook.SaveAs ThisBookPath & "\" & NewBookName
    
    'OPEN ORIGIONAL WORKBOOK
    Workbooks.Open FileName:=ThisBookPath & "\" & ThisBookName
    
    'CLOSE NEW COPY OF WORKBOOK
    Workbooks(NewBookName).Close
End Sub