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

1 vote243 views1 answer
Sort using vba
VBA
0 vote219 views1 answer
WGET FTP
VBA
5 votes248 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote252 views1 answer
COMO GRAVAR U VALOR NO ARQUIVO APPSETINGS EM VB NET
VBA
0 vote236 views2 answers
Excel vba number format file size
VBA
0 vote227 views1 answer
How to carry text to the next line in a label in vb.net
VBA
0 vote253 views1 answer
Vbnet check if string is only letters
VBA
0 vote177 views1 answer
Vbide vbproject reference
VBA
1 vote221 views1 answer
What does vbs stand for
VBA
0 vote213 views1 answer
Vba add month to date
VBA