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 vote157 views1 answer
Vbscript remove spaces from string
VBA
0 vote188 views1 answer
Vb ternary
VBA
0 vote148 views1 answer
Change "location" of binding navigator vb
VBA
0 vote168 views1 answer
Thread sleep vb
VBA
0 vote157 views1 answer
WGET FTP
VBA
1 vote151 views1 answer
Vba ubound array 2-dimensional
VBA
0 vote156 views1 answer
Limit combobox to list vba
VBA
0 vote134 views1 answer
How to self delete a vbscript file
VBA
1 vote157 views1 answer
Excel vba get column name from number
VBA
0 vote166 views1 answer
Vbscript Trim
VBA