Reference current file open in macro

[s_rjohnson]

I need some help creating a macro that would
Open another file copy data from there then go back and paste the data in the template file, but work with the template as a different filename (whichever one is open).
Is there a way to reference the current open file?

This is what I have so far.

Workbooks.Open Filename:="\\server\public\name\DATA.xls"
Range("B3:AC21").Select
ActiveWindow.SelectedSheets.PrintPreview
Selection.Copy
Windows("template.xls").Activate
Range("Z5").Select
ActiveSheet.Paste
Windows("DATA.xls").Close

Any help would be appreciated.

Thank You,

Steve

[Leith Ross]

Hello s_rjohnson,

You can return the path of a workbook using the following...

Workbooks("Workbook1").Path (The Path does not include the Workbook name)

This also works with ActiveWorkbook...

WbkPath = ActiveWorkbook.Path

WbkName = ActiveWorkbook.Name

Hope this helps,
Leith Ross