We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub CSMCopy() Dim wb1 As Workbook, wb2 As Workbook Dim ws As Worksheet Set wb1 = Workbooks("http://sharepoint.fmr.com/sites/CSMBusinessManagementTeam/default.aspx?RootFolder=%2fsites%2fCSMBusinessManagementTeam%2fShared%20Documents%2fPlanning%20and%20Performance%2fSegment%20Assignments&View=%7bEB37DB38%2dBFFF%2d41B3%2dAF97%2dBBACDD1BB0F3%7d/All_Plan_Assignments-All_Segments.xls") Application.DisplayAlerts = False Set wb2 = Workbooks("\\dmn1.fmr.com\FIDFILE\FS093\workgrp\COMMON\Testing and Reporting Services\Help Line\CallAnswer-TC_SDM\Resources\All Plan Assignments - All Segments.xls") wb1.UsedRange.Copy wb2.Cells Application.DisplayAlerts = True End Sub
Join the community of 500,000 technology professionals and ask your questions.