[RESOLVED] Filename no extension, left of the first "_"

[Jrocket]

ActiveCell.FormulaR1C1 = Left(ActiveWorkbook.name, InStr(ActiveWorkbook.name, "_") - 1) & " " & Format(Now(), "mm/yyyy")


Posting my own solution.