Microsoft Office Forums - View Single Post - Need Help to Run an Existing Macro From Current Workbook to Another Workbook

p45cal · 05-06-2018, 08:37 AM

Without having tested, change the these lines:

Code:

Sub testing()
Dim ws As Worksheet, fndRng As Range
For Each ws In ThisWorkbook.Sheets

to:

Code:

Sub testing(wkbook)
Dim ws As Worksheet, fndRng As Range 
For Each ws In wkbook.Sheets

then you can call your testing procedure in several ways, eg.:

Code:

testing Workbooks("PPE102815.xlsm")

or:

Code:

Set wkb = Workbooks.Open("G:\1. Payroll Files\2016\PPE102815.xls")
testing wkb