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 vote381 views1 answer
Vba userform textbox wrap text
VBA
0 vote338 views1 answer
WGET FTP
VBA
0 vote308 views1 answer
Excel vba formatconditions range
VBA
0 vote356 views1 answer
Set datetimepicker value to null vb
VBA
0 vote343 views1 answer
Vba add shape oval
VBA
0 vote338 views1 answer
Search combobox items vb.net
VBA
0 vote365 views1 answer
Regex numeric digits
VBA
0 vote328 views1 answer
Remove frist letter from string vbnet
VBA
1 vote321 views1 answer
Vba compile error object required
VBA
4 votes337 views1 answer
Excel vba how to programmatically remove the marching ants after range copy
VBA