I have the following vba which works perfectly fine...however, when the macro is running it has a intermediate step where the end user has to click the continue button as the following message appears...
This workbook contusions one or more links that cannot be updated
Click continue or edit workbook
I would like to select continue each time and incorporate a step into the current macro to do this automatically if possible
Dim wbDst As Workbook
Dim wbSrc As Workbook
Dim wsSrc As Worksheet
Dim wsDst As Worksheet
Dim rngDst As Range
Dim strFilename As String
Dim strPath As String
strPath = "C:\Documents and Settings\Test\"
Set wbDst = ThisWorkbook ' Workbooks.Open("C:\Documents and Settings\Test\Master Template.xls")
Set wsDst = wbDst.Worksheets("cm1")
Set rngDst = wsDst.Range("M18")
strFilename = Dir(strPath & "*.xls")
While strFilename <> ""
If strFilename <> wbDst.Name Then
Set wbSrc = Workbooks.Open(strPath & strFilename)
Set wsSrc = wbSrc.Worksheets("cm")
.Range("M18", .Range("M" & .Rows.Count).End(xlUp).Offset(0, 31)).Copy rngDst
Set rngDst = wsDst.Range("M" & Rows.Count).End(xlUp).Offset(1)
Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.