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 votes148 views2 answers
Vba create folder if not exist
VBA
0 vote141 views1 answer
Change "location" of binding navigator vb
VBA
0 vote144 views1 answer
Do while not vb.net
VBA
8 votes225 views1 answer
Vba make integer
VBA
0 vote140 views1 answer
Excel vba concatenate range
VBA
22 votes277 views1 answer
Excel vba check if directory exists
VBA
0 vote151 views1 answer
Vba word open document read only
VBA
0 vote160 views2 answers
Excel vba protect cells with formula
VBA
0 vote151 views1 answer
Vba get application version
VBA
0 vote151 views1 answer
Xlbycolumns is not declared
VBA