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 vote198 views1 answer
Default host vbox address
VBA
5 votes211 views1 answer
Excel vba how to unit test vba code
VBA
0 vote189 views1 answer
Excel PasteSpecial Format:= can't find the argument
VBA
0 vote176 views1 answer
Excel vba show developer tab
VBA
0 vote174 views1 answer
Excel vba select multiple shapes
VBA
4 votes201 views1 answer
VBA Deep Clone Dictionary
VBA
0 vote178 views1 answer
Vba len variant
VBA
0 vote192 views1 answer
(SecurityProtocolType)3072 vb.net
VBA
0 vote174 views1 answer
Backspace key has stopped working visual studio
VBA
0 vote173 views1 answer
Vb.net round to 2 decimal places
VBA