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

2 votes196 views1 answer
Excel vba date to string conversion
VBA
0 vote219 views1 answer
Add text to Shape VBA
VBA
0 vote199 views1 answer
Visual basic msdos
VBA
3 votes197 views1 answer
Excel vba last row in range
VBA
0 vote228 views1 answer
Vba code for cutoff time
VBA
0 vote217 views1 answer
Excel vba ternary
VBA
0 vote223 views1 answer
Excel vba urlmon
VBA
0 vote201 views1 answer
Vba sheet visible
VBA
18 votes378 views3 answers
Excel-vba make integer
VBA
1 vote227 views1 answer
Vba loop through files in folder
VBA