For Workbook & Worksheet Activate & Select all data & Copy Select Data वर्कबुक और वर्कशीट सक्रिय के लिए और सभी डेटा का चयन करें & कॉपी करें डाटा

For Workbook & Worksheet Activate & Select all data & Copy Select Data

वर्कबुक और वर्कशीट सक्रिय के लिए और सभी डेटा का चयन करें  & कॉपी करें डाटा

Sub Mastersheet_Update()

Dim wb As Workbook Set wb = Workbooks("WorkbookName.xlsm") wb.Activate Worksheets("WorkSheetName").Activate Worksheets("WorkShetName").Range("a1").CurrentRegion.Select Worksheets("WorkShetName").Range("a1").CurrentRegion.Copy End Sub