Есть макрос работающий с книгами:

---------------------------------
Sub go()

Dim curpat As String
Dim wsNewSheet As Worksheet
Dim vn As Integer
Dim i As Long
Dim kol As Long
Dim a As Integer

kol = 1
a = 0
curpat = ActiveWorkbook.Path

Cells.Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:= _
curpat & "\bad.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Set wsNewSheet = ActiveWorkbook.Worksheets.Add
With wsNewSheet
.Name = "BAD"
End With
...
-----------------------------------

т.е. операции производятся с открытой книгой.

Как перейти из всего этого в чистый VBA, т.е. что добавить в коде, чтобы один раз четко указать с какой книгой работать, а все остальные манипуляции оставить как есть?

Спасибо!