Sub ChangeOnDate()

Dim mask As String
mask = "##.##.####"
        For Each Cell In Columns("A:A")
        
                    If ActiveCell.Value Like mask Then
                    
                    Cell.Replace What:=".", Replacement:="/", LookAt:=xlPart, _
                    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
                    ReplaceFormat:=False
                    
                    Cell.NumberFormat = "m/d/yyyy"
                    
                    
                    End If
        Next Cell

End Sub

ПутьШаблона = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, ИмяФайлаШаблона)
Set WD = WA.Documents.Add(ПутьШаблона): DoEvents

Dim ssh As Worksheet
For Each ssh In Worksheets
If ssh.Name = "Исходные данные" Then
Application.Goto Sheets("Исходные данные").Range("A2"), True
Exit Sub
End If
Next ssh
If ssh Is Nothing Then
MsgBox "Необходимо отрыть файл ""Аналитика"""
End If

Application.Goto Sheets("Исходные данные").Range("A2"), True

Application.Goto Workbooks(ПЕРЕМЕННАЯ_с_названием книги).Sheets("Исходные данные").Range("A2"), True

Private Sub CommandButton4_Click()
Dim ssh As Worksheet
For Each ssh In Worksheets
If ssh.Name = "Исходные данные" Then
Application.Goto Sheets("Исходные данные").Range("A2"), True

End If
Next ssh
'If ssh Is Nothing Then
'MsgBox "Добрый день листы не найдены"
'End If

End Sub

Sub Преобразование()
    ActiveWorkbook.SaveAs Filename:= "С:\test.xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ' 1-й этап - сохранение файла в формате xlsx
    Workbooks.Open Filename:= "С:\test.xlsx" ' 2-й этап открытие преобразованного файла
End Sub