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

1 vote129 views1 answer
Excel vba How to determine if a date falls on the weekend?
VBA
0 vote128 views1 answer
Check if cell is dbnullvb.net
VBA
0 vote129 views2 answers
Open url from vba
VBA
0 vote113 views1 answer
Add Formula to Shape Text in VBA
VBA
0 vote117 views1 answer
How to format a textbox as date vb net
VBA
0 vote124 views1 answer
Freeze panes vba
VBA
0 vote119 views1 answer
Vba line feed
VBA
0 vote119 views1 answer
Excel vba automatic calculation
VBA
0 vote121 views1 answer
Telephon call in vba
VBA
1 vote133 views1 answer
Set font for ms chart vb.net
VBA