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 vote119 views1 answer
Vba first line of string
VBA
5 votes138 views1 answer
Excel-vba get integer high byte
VBA
0 vote116 views1 answer
Vba code to select image in sheet
VBA
0 vote127 views1 answer
Windows Forms dark title bar
VBA
0 vote133 views1 answer
Power query M substract minimum value of column -dax
VBA
1 vote132 views1 answer
Sort using vba
VBA
0 vote120 views1 answer
Handling a click event anywhere inside a panel vb
VBA
0 vote75 views1 answer
Vbide vbproject reference
VBA
1 vote116 views2 answers
Vba function return array
VBA
8 votes202 views1 answer
Excel vba determine number of elements in a 2D array
VBA