Sub qqq()Dim dDate As Date, sDate As String, MyText As String
    dDate = "01.12.2017  0:00:00"
    MyText = "Несчастный текст даты"
    sDate = Format(dDate, "dd.mm.yyyy h:mm:ss")
    MsgBox sDate & " " & MyText
End Sub

01.12.2017  0:00:00

="01.12.2017  0:00:00"

'-------------------------------------------------
Текст1 = "=""" & ActiveCell.Value & """"
Текст2 = "=""" & ActiveCell.Text & """"
Текст3 = "=""" & ActiveCell.Formula & """"
Текст4 = "=""" & Application.Text(ActiveCell.Text, "ДД.ММ.ГГГГ  ч:мм:сс") & """"
'-------------------------------------------------
MsgBox _
Текст1 & Chr(10) & _
Текст2 & Chr(10) & _
Текст3 & Chr(10) & _
Текст4
'-------------------------------------------------
'Текст1  - выдает: ="01.12.2017 "
'Текст2 - выдает: ="01.12.2017  0:00"
'Текст3 - а тут вообще сдурел .. выдает: ="43070"  ... дебилизм
'Текст4 - выдает: ="01.12.2017  0:00"
'-------------------------------------------------

Fun(arg1,arg2,arg3,arg4,arg5,arg6,arg7,)
Fun = arg4 'Нужно получить не текст значения по указанному адресу, а текст arg4 из самой ячейки _
и это при том, что если TypeName(arg4) = "Range". Даже в таком случае. 
End Function

Function ValueFullRange(Ячейка)
strЯчейкаОт = Ячейка.Address(external:=True)
Do
Count = Count + 1
strCelladdr = Range(strЯчейкаОт).Offset(Count, 0).Address(external:=True)
    If Range(strCelladdr).Value = "" Or Range(strCelladdr).Value = 0 Then
        Set setПоследнееВстолбце = Range(strCelladdr).Offset(-1, 0)
        Exit Do
    End If
Loop
 ValueFullRange = strЯчейкаОт & ":" & setПоследнееВстолбце.Address
End Function

strRg = "A1"
ActiveSheet.Range(strRg, ActiveSheet.Range(strRg).End(xlDown)).Select

If i < 4 Then i = 4
F = "=" & IIf(InStr(s, "'"), "'", "") & Mid(s, i, Len(s) - i)

Application.Volatile = false

Function Linkfulladdress(ТекстСвязи)
On Error Resume Next
Dim s As String, i As Long
s = Application.ThisCell.Formula
i = InStrRev(s, "\")
'--------------------------------
If TypeName(ТекстСвязи) = "Range" Then
    strConnection = ТекстСвязи.Address(external:=True)
Else
     If i Then
    'ЕСЛИ КНИГА СВЯЗИ ЗАКРЫТА ТО ФУНКЦИЯ ОТОБРАЖАЕТ АДРЕС СВЯЗИ ИЗ ТЕКСТА ЕЕ ФОРМУЛЫ! _
    'А НУЖНО ЧТО БЫ ПРИ ЗАКРЫТОЙ КНИГЕ ЗНАЧЕНИЕ АДРЕСА СВЯЗИ ФУНКЦИИ ВООБЩЕ НЕ ОБНОВЛЯЛАСЬ! _
    'Т.Е. ОСТАВАЛАСЬ ТАКОЙ ЖЕ КАК ДО ОБНОВЛЕНИЯ. _
    'И РАБОТАЛА ТАК ЖЕ КАК НА ПРИМЕР РАБОТАЕТ функция: ВПР ПРИ ЗАКРЫТОЙ КНИГЕ
    strConnection = IIf(InStr(s, "'"), "'", "") & Mid(s, i + 1, Len(s) - i - 1) ' Адрес
    End If
End If
Linkfulladdress = strConnection
End Function

=ЯЧЕЙКА("адрес";[Книга1]Лист1!$E$3)

Function Linkfulladdress(ТекстСвязи)
On Error Resume Next
strConnection = ТекстСвязи.Address(external:=True)
    If InStr(Application.Caller.Formula, "\") > 0 Then
    'ЕСЛИ КНИГА СВЯЗИ ЗАКРЫТА ТО ФУНКЦИЯ _
    ОТОБРАЖАЕТ СВЯЗЬ ИЗ ТЕКСТА ЕЕ ФОРМУЛЫ!
    strConnection = FuncLoc_strFormulaWithCloseBookLink(Application.Caller.Formula)
    End If
Linkfulladdress= strConnection
End Function 

Function FuncLoc_strFormulaWithCloseBookLink(Текст) As String
strТекст = Текст
strSymb = "["
numFormulaText_Len = Len(strТекст)
strOutofEndSymb = Left(strТекст, numFormulaText_Len - 1)
strLeftText = "'" & Right(strOutofEndSymb, numFormulaText_Len - InStrRev(strOutofEndSymb, strSymb))
'=======================
If InStr(strLeftText, ";") = 0 Then
ConnectionText = strLeftText
ElseIf InStr(strLeftText, ";") > 0 Then
ConnectionText = Left(strLeftText, InStr(strLeftText, ";") - 1)
ElseIf InStr(strLeftText, ",") > 0 Then
ConnectionText = Left(strLeftText, InStr(strLeftText, ",") - 1)
End If
FuncLoc_strFormulaWithCloseBookLink = ConnectionText
'=======================
End Function