Vba get workbook name

fileName = ThisWorkbook.Name 
Debug.Print fileName		' With extension
If InStr(fileName, ".") > 0 Then 
   fileName = Left(fileName, InStr(fileName, ".") - 1) 
   Debug.Print fileName		' Without extension
End If

Similar codes

0 vote341 views1 answer
Make your computer talk vbscript
VBA
1 vote332 views1 answer
Shortcut to apply a formula to an entire column in excel
VBA
0 vote331 views1 answer
Excel filter by date not working vba
VBA
1 vote292 views1 answer
How to open cmd with vbd
VBA
0 vote313 views1 answer
Internet explorer reference vba
VBA
0 vote349 views1 answer
VBA
VBA
0 vote337 views1 answer
Excel vba urlmon
VBA
0 vote309 views1 answer
Vb.net change cursor to wait
VBA
0 vote332 views1 answer
Priavte sub with multiple handels find sneder
VBA
2 votes306 views2 answers
Constructor vb.net
VBA