FileName in Foote

[Notadumbblonde]

Hey Simple but tough question everyone!

I have this bit of code that writes the full file name with Path.

activesheet.pagesetup.rightfooter= activeworkbook.fullname

Is there anyway I can just pull the filename without the path?

thanks

 

[Nimrod]

Public Sub NoPath()
MsgBox ActiveWorkbook.Name
End Sub


in other words ....

activesheet.pagesetup.rightfooter= activeworkbook.name

 

[Notadumbblonde]

Thanks!!!

Just - If I wanted to eliminate the ".xls" How would I go about doing that?

thanks.

 

[Nimrod]

Public Sub NoPath()
MsgBox Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)
End Sub


IN other words ...

ActiveSheet.PageSetup.RightFooter = Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 4)

 

[Notadumbblonde]

that's amazing....

!!! thanks

 

[Nimrod]

Your welcome