Macros to copy in new comments

Hi Friends,

I have recorded a macro, please find the code below. In that i need to run the same macros in another document. Currently its only running with the file name "MS 11140 to R". I need to run the macros of any document.

```Code
Sub MacroTitle()
'
' MacroTitle Macro
'
'
Selection.MoveLeft Unit:=wdCharacter, Count:=4, Extend:=wdExtend
Selection.Comments.Add Range:=Selection.Range
Windows("Priliminary Screening Comments").Activate
Selection.GoTo What:=wdGoToBookmark, Name:="TITLE"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.Copy
Windows("MS 11140 to R").Activate
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
ActiveDocument.Save
End Sub
```