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 vote268 views1 answer
Vba code for cutoff time
VBA
0 vote232 views1 answer
Xlbycolumns is not declared
VBA
2 votes225 views1 answer
Date format for ms chart vb.net
VBA
0 vote227 views1 answer
Vba find sub dictionary
VBA
0 vote219 views1 answer
Vb.net round to 2 decimal places
VBA
0 vote223 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote249 views1 answer
Vba round to 2 decimals
VBA
0 vote235 views1 answer
Vb run command
VBA
0 vote231 views1 answer
Average vba
VBA
0 vote261 views1 answer
Vba extract filename from path
VBA