Good morning Doug,

[vba]WbsName = Application.ActiveWorkbook.Name[/vba]
Or just
[vba]WbsName = ActiveWorkbook.Name[/vba]


Matt