Hi dineshsilicon, make your button and add a revised version (your procedures that you are wanting to call) to suit your needs.

Private Sub CommandButton1_Click()

    Dim MyDir As String
    Dim strPath As String
    MyDir = ActiveWorkbook.Path
    strPath = MyDir & "\x.xls"
    Workbooks.Open Filename:=strPath
    Call MacrosName1
    Call MacrosName2
    
End Sub