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 vote370 views1 answer
Test if form is open vb
VBA
1 vote377 views1 answer
Set font for ms chart vb.net
VBA
0 vote328 views1 answer
Putting marquee in vb.net
VBA
0 vote366 views1 answer
Reference to a non-shared member requires an object reference
VBA
3 votes362 views1 answer
Vba request json
VBA
0 vote345 views1 answer
Quit excel with save changes dialog vb.net
VBA
0 vote376 views1 answer
Vba min
VBA
0 vote367 views1 answer
Columns dont autoresize on program start vb.net
VBA
0 vote330 views1 answer
How to make a if statement with vbs
VBA
0 vote354 views1 answer
Vbnet add axis labels to chart
VBA