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 vote176 views1 answer
Ribbon show/hide
VBA
1 vote172 views1 answer
Vba delete file
VBA
0 vote177 views4 answers
How to continue formula in below line in vba code
VBA
1 vote117 views1 answer
Ms access open form to new record
VBA
1 vote171 views1 answer
Excel vba to lower case
VBA
0 vote182 views1 answer
Vba keep command window open
VBA
5 votes170 views1 answer
Excel formula how to create strings containing double quotes
VBA
-1 vote195 views1 answer
Code for reading letters only in vb 6
VBA
5 votes204 views1 answer
Excel vba get user selected range
VBA
0 vote183 views1 answer
VBA Sort RossetaCode
VBA