Hello gsurge,
If you are running this macro outside of Excel then you need to set the variable xlapp to an instance of Excel. Here is an example.
Set xlApp = CreateObject("Excel.Application")
If you are running the macro from inside Excel then simply delete the xlapp Dim statement and prefix from your code. It would look this...
Dim filepath As String
Dim Rng As Range
Dim template_file As String
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("IAS")
Set Rng = ws.Range("D3").End(xlDown)
For Each Cell In Rng
template_file = Cell.Value
filepath = Cell.Offset(0, 1).Value
filepath = IIf(Right(filepath, 1) <> "\", filepath & "\", filepath)
Workbooks.Open Filename:=template_file
ActiveWorkbook.SaveAs Filename:=filepath _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Next Cell
Bookmarks