ActiveWorkbook.Name zonder .xls

[otmar]

ik heb een vba code geschreven waarmee ik een gedeelte vd worksheet via de mail kan versturen.

nu wil in de omschrijving van die mail de bestandnaam meegeven.

dat wou ik doen met ActiveWorkbook.Name

dus omschrijving = activewoorkbook.name

maar dan wordt ook de extensie getoond en dat wil ik niet.

wie weet de juiste vba code?

 

[Roncancio]

With ActiveWorkbook
    omschrijving = Left(.Name, InStrRev(.Name, ".") - 1)
End With)

Met vriendelijke groet,


Roncancio

 

[otmar]

Roncancio,
bedankt dit heeft gewerkt.