Name of new workbood in Msgbox

[MarkCBB]

Hi there,


I am using the following code to export a staff database from its location to a new workbook, but I would like the msgbox at the end of the code to display the name of the Workbook, most times it will be "Book1" but just in case.

Sub Export_Staff_DB()
Dim STAFFDB As Range

Sheets("STAFF_DB").Visible = True
Sheets("STAFF_DB").Select
Range("A1:N1").Select
Range(Selection, Selection.End(xlDown)).Select
Set STAFFDB = Selection
STAFFDB.Copy
Workbooks.Add
Range("A1").Select
ActiveSheet.Paste
MsgBox ("Please save this copy, you are able to edit the contents, then when you are done please import the updated copy vai INPUT page! Thanks!")
End Sub

 

[JamesW]

Does this help?

MsgBox ActiveWorkbook.Name

 

[MarkCBB]

Yup I was forgetting the Active part.

MsgBox ("Please save this copy, " & ActiveWorkbook.Name & "  you are able to edit the contents, then when you are done please import the updated copy vai INPUT page! Thanks!")

Thanks James