Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата - VB

Формулировка задачи:

Помогите плиз, Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата (использовать свойство NumberFormat для задания вида формата "mm/dd/yyyy").

Решение задачи: «Создать процедуру, позволяющую третий столбец активного рабочего листа открытой рабочей книги Excel настраивать на формат значений типа дата»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim sh
On Error Resume Next
With GetObject(, "excel.application")
    If Err Then MsgBox "Excel не запущен!": Exit Sub
    Set sh = .activesheet
    If sh Is Nothing Then MsgBox "Нет текущего листа!": Exit Sub
    sh.Columns(3).NumberFormat = "dd\/mm\/yyyy"
    If Err Then MsgBox "Не удалось установить формат!"
End With
End Sub
                        