Jim

Paste these into the Thisworkbook module

Private Sub Workbook_Open()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Caption = ""
End Sub


Gord Dibben MS Excel MVP

On Sat, 1 Jul 2006 12:08:01 -0700, Jim wrote:

I would like to what drive I'm accessing, because I save my worksheets on
several drives on the netwark.

speedy509