[Iska]

позже уже наткнулся на today(). »

Где наткнулись?

McLotos, временно вставьте следующий код:

Код:

Sub SomeSub()
    Dim objSheet As Object
    
    Debug.Print "Формат даты по умолчанию:", Now()
    Debug.Print

    For Each objSheet In ThisWorkbook.Sheets
        Debug.Print TypeName(objSheet), vbTab, objSheet.Name
    Next objSheet
End Sub

в искомую рабочую книгу, исполните его и выложите полученный результат из окна «Immediate» («Ctrl-G») сюда, обрамив его тэгом «code».