Macro me desactivo la opción de deshacer y rehacer

Hola buen día, les pido su ayuda, tengo este código que me han ayudado a mejorarlo en el foro, trae la imagen del producto, siempre y cuando la descripción coincida, este va en la hoja 1::

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'Mod Dam

On Error Resume Next

If Not Intersect(Target, Range("H4:H815")) Is Nothing Then
ruta = ActiveWorkbook.Path & "\IMAGENES\"
If Dir(ruta & Target & ".jpeg") <> "" Then
Image1.Picture = LoadPicture(ruta & Target & ".jpeg")
Else
Image1.Picture = Nothing
End If
End If

If Not Intersect(Target, Range("H4:H815")) Is Nothing Then
Image1.Visible = True
Else
Image1.Visible = False
End If

End Sub

Y tengo este saludo para cuando se inicia el archivo:

Private Sub Workbook_Open()

Dim hora As Double
Dim saludo As String
hora = (Now - Int(Now)) * 24
Select Case hora
Case 6 To 12
saludo = "Buenos Días"
Case 12 To 18
saludo = "Buenas Tardes"
Case Else
saludo = "Buenas Noches"
End Select
MsgBox saludo & ", Favor de Habilitar Contenido y/o Habilitar Edición", vbInformation, "Mensaje Especial"

End Sub

Los códigos funcionan excelente, el problema es que me desactivo la opción de DESHACER Y REHACER y no se como hacerle para volver a activarla, mucho les agradeceré su ayuda para esto.

Saludos Cordiales