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

3 votes228 views1 answer
Vba double quote
VBA
0 vote255 views1 answer
Vba cell all borders
VBA
0 vote229 views1 answer
Ribbon show/hide
VBA
0 vote235 views1 answer
Tester si une case est vide vba
VBA
2 votes279 views1 answer
Vba round number
VBA
0 vote172 views1 answer
Excel vba arrondir
VBA
1 vote250 views1 answer
Vba format string as cash
VBA
2 votes161 views2 answers
Vba exit loop
VBA
2 votes208 views2 answers
Excel vba copy values range to another range
VBA
0 vote210 views1 answer
Vba text to general
VBA