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 vote239 views1 answer
Dlete rows with blanks and space " " vba
VBA
1 vote219 views2 answers
Excel vba password protect
VBA
0 vote235 views1 answer
Vbnet check if string is only numbers
VBA
0 vote248 views1 answer
Vba parameter adodb null value
VBA
0 vote237 views1 answer
Regex numeric digits
VBA
0 vote237 views1 answer
VBA is form loaded
VBA
5 votes234 views1 answer
Excel vba right word from Long Integer
VBA
0 vote224 views2 answers
Excel vba close without saving
VBA
3 votes271 views1 answer
Vba continue for each loop
VBA
0 vote227 views1 answer
Vba loop through table
VBA