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.

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
Windows("MS 11140 to R").Activate
Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
End Sub