Private Function RegExpReplace_(ByVal WhichString As String, _
                       ByVal Pattern As String, _
                       Optional ByVal ReplaceWith As String = " ", _
                       Optional ByVal IsGlobal As Boolean = True, _
                       Optional ByVal IsCaseSensitive As Boolean = True) As String
'Функция по регулярному выражению (маске) возвращает результат
'Declaring the object
Dim objRegExp As Object
'Initializing an Instance
Set objRegExp = CreateObject("vbscript.regexp")
'Setting the Properties
objRegExp.Global = IsGlobal
objRegExp.Pattern = Pattern
objRegExp.IgnoreCase = Not IsCaseSensitive
'Execute the Replace Method
RegExpReplace_ = objRegExp.Replace(WhichString, ReplaceWith)
End Function
Sub FileName()
Dim wb As Workbook, con As Connections, c As Object, n$, d$, m
Set wb = ThisWorkbook
Set con = ThisWorkbook.Connections
d = Format(Now, "ddmmyyyy")
For Each c In con
             On Error GoTo 10
             n = c.TextConnection.Connection
             n = RegExpReplace_(n, "[0-9]{8}", d)
             c.TextConnection.Connection = n
10
Next
End Sub

Private Sub Workbook_Open()
Call FileName
End Sub