Is there some code that will retrieve a workbook name?

What I'm trying to do within some code (in an xl template) is to activate
the workbook again after the procedure has done some activity in another
workbook. But the workbook that has the code in it doesn't always have the
same name.

Rob

Hi,

This puts all open workbook naames in a message box which you should be able
to adapt:-

Sub seeemall()
Dim wkb As Workbook
For Each wkb In Workbooks
If Windows(wkb.Name).Visible Then _
MsgBox (wkb.Name)
Next
End Sub

Mike

"RobN" wrote:

Is there some code that will retrieve a workbook name?

What I'm trying to do within some code (in an xl template) is to activate
the workbook again after the procedure has done some activity in another
workbook. But the workbook that has the code in it doesn't always have the
same name.

Rob

The best way is to set a variable pointer to the workbook, then reclaim it
so to speak

Set myWb = Activeworkbook
...
'do your other stuff
...
myWB = Activeworkbook

Even better (than the best? uhm?), is to refernce the workbooks by these
object variables all the time

Set myWb = Activeworkbook
With myWB
'do some stuff
End With

Set oWB2 = Worksbooks.Open(wbfilename)
With oWB2
'do your other stuff
Ene With

With myWB

'etc

--
---
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)



"RobN" wrote in message
...
Is there some code that will retrieve a workbook name?

What I'm trying to do within some code (in an xl template) is to activate
the workbook again after the procedure has done some activity in another
workbook. But the workbook that has the code in it doesn't always have the
same name.

Rob