I am trying to manipulate this code

Dim wbItem As Workbook
Dim wsInput AsWorksheet
Dim rData AsRange, rData1 As Range, rLast As Range, rTemp As Range
Dim iRow AsLong, iItem As Long
Dim dDiscountAs Double
Dim vItems AsVariant, vPrices As Variant

Application.ScreenUpdating = False

'get normalprices
Workbooks.Add"C:\midstate\item prices.xlsx" ' <<<<<<<<<<<<< change WB path
Set wbItem =ActiveWorkbook

Set rTemp =wbItem.Worksheets("Sheet1").Range("C1")
Set rTemp =Range(rTemp, rTemp.End(xlDown))
vItems =Application.WorksheetFunction.Transpose(rTemp)
Set rTemp =wbItem.Worksheets("Sheet1").Range("E1")
Set rTemp =Range(rTemp, rTemp.End(xlDown))
vPrices =Application.WorksheetFunction.Transpose(rTemp)

wbItem.CloseFalse


'set data
Set wsInput =Worksheets("Sheet1") ' <<<<< Change WSname
Set rLast =wsInput.Cells(1, wsInput.Columns.Count).End(xlToLeft)
Set rData =Range(wsInput.Cells(1, 1), rLast).EntireColumn
Set rData =Intersect(rData, wsInput.Cells(1, 1).CurrentRegion.EntireRow)
Set rData1 =rData.Cells(2, 1).Resize(rData.Rows.Count - 1, rData.Columns.Count)


To do the same thing. To call the replace xlsm file to dothe find and replace. But I am not having luck. Keep getting errors and googlenot much help with the referencing another file.