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

4 votes249 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA
1 vote262 views1 answer
Vba loop through files in folder
VBA
0 vote230 views1 answer
Vbnet display all axis labels in cahrt
VBA
0 vote258 views1 answer
Excel vba protect shapes
VBA
0 vote231 views1 answer
Excel vba disable mouse click
VBA
0 vote249 views1 answer
How to get value from clipboard in vbnet
VBA
0 vote262 views1 answer
Excel web scraping
VBA
1 vote258 views1 answer
How to remove zeros in excel
VBA
0 vote229 views1 answer
Change form background image vb
VBA
0 vote246 views1 answer
Openfiledialog specific folder
VBA