Hello all,
I am running this code from an existing workbook, and already have a code to copy the selected range from a different workbook. I want to copy this code and paste it into the sheet named "PRODUCTION" in cell H28.
The copy code I have is:
Dim StrFile As Variant
For Each StrFile In var
Workbooks.Open (loc1 & StrFile)
sh.Activate
On Error Resume Next
Set uBOM = Cells.Find(What:="No.", After:=[A1], LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
Range(Cells(uCost.Row + 1, uCost.Column), Cells(uCost.Row.End(xlDown), uCost.Column + 4)).Copy
On Error GoTo 0
Next StrFile
If I am running this from the template workbook I have, can I just use a .Paste to active workbook or would this not work since I have the Workbooks.Open in the Copy code?
Bookmarks