Snasui Excel Forum

Code: Select all

Sub CopyFG()
        Dim formBook As Workbook
        Dim wiShare As Workbook
        Set formBook = ThisWorkbook
        Set wiShare = Workbooks("RM_FG.xlsx")
                wiShare.Worksheets("FG").Activate
                Cells.Select
                Selection.Copy
                formBook.Worksheets("FG").Activate
                Cells.Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                ActiveWorkbook.Save
End Sub

Code: Select all

Sub CopyRM()
        Dim formBook As Workbook
        Dim wiShare As Workbook
        Set formBook = ThisWorkbook
        Set wiShare = Workbooks("RM_FG.xlsx")
                wiShare.Worksheets("RM").Activate
                Cells.Select
                Selection.Copy
                formBook.Worksheets("RM").Activate
                Cells.Select
                ActiveSheet.Paste
                Application.CutCopyMode = False
                ActiveWorkbook.Save
End Sub