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 vote171 views1 answer
Vb net check if file exists
VBA
0 vote186 views1 answer
Date as number vb
VBA
3 votes194 views1 answer
Excel insert blank row for value change in column
VBA
0 vote166 views2 answers
Excel vba prevent save
VBA
0 vote173 views1 answer
Change whcih control a user has selected vb
VBA
0 vote122 views1 answer
Vba select file in folder
VBA
0 vote190 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote192 views1 answer
Add text to Shape VBA
VBA
0 vote191 views1 answer
Vbs run with cscript
VBA
1 vote179 views1 answer
Random number generator vb.net
VBA