Sub SaveCopyEdit()
'
' SaveCopyEdit Macro
'
'
'    ActiveDocument.Name
    Dim myfilename As String
    myfilename = "D:\slack\rwanda\copy edit\" & CreateObject("scripting.filesystemobject").getbasename(ActiveDocument.Name) & " revDH.docx"
'    MsgBox myfilename
    Application.StatusBar = "Saving to copy edit folder..."
    ActiveDocument.SaveAs filename:=myfilename, FileFormat:= _
        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    ActiveDocument.SaveAs
    ActiveDocument.TrackRevisions = True
'    ActiveDocument.TrackRevisions = Not ActiveDocument.TrackRevisions
End Sub