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 vote157 views1 answer
Get current year vb
VBA
2 votes165 views1 answer
Vba ado ace sql alias ignored for calculated column
VBA
12 votes295 views1 answer
Excel vba write string to text file
VBA
0 vote176 views1 answer
Vba dictionary length
VBA
0 vote161 views1 answer
Vba border weight
VBA
31 votes288 views1 answer
Excel-vba how to convert a column number into an excel column
VBA
0 vote195 views1 answer
Vba cell all borders
VBA
0 vote168 views1 answer
Refresh token em vb net
VBA
7 votes184 views1 answer
Excerl vba array to range
VBA
0 vote181 views1 answer
Vba search string position
VBA