Question : vba get workbook name
Answered by : vastemonde
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
Source : | Last Update : Sat, 20 Feb 21