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 vote342 views1 answer
Excel vba saveas force overwrite
VBA
0 vote376 views1 answer
Method showalldata of object _worksheet failed vba
VBA
0 vote371 views1 answer
Excel vba convert cells address
VBA
5 votes361 views1 answer
Excel vba second byte from INTEGER
VBA
0 vote341 views1 answer
Vba shape transparent
VBA
0 vote359 views1 answer
Style percent not found vba
VBA
0 vote332 views1 answer
Vb run command
VBA
1 vote336 views1 answer
How to check is the value enterd is a number or text in vba
VBA
0 vote331 views1 answer
Excel vba automatic calculation
VBA
1 vote353 views2 answers
Get all column names from excel vba
VBA