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 vote366 views1 answer
Default host vbox address
VBA
8 votes464 views1 answer
Excel vba make a short integer from two bytes
VBA
18 votes570 views2 answers
Vba make word from bytes
VBA
0 vote372 views1 answer
Xlbycolumns is not declared
VBA
0 vote353 views1 answer
Vba len variant
VBA
0 vote390 views1 answer
Excel vba named range exists
VBA
4 votes357 views1 answer
Excel vba Imitating the "IN" operator from python
VBA
1 vote361 views1 answer
Vbs run
VBA
1 vote368 views1 answer
Excel vba last column in range
VBA
0 vote355 views1 answer
Excel vba scroll to cell
VBA