Hi everybody... i wanted to know how to do "Redo" in excel
programatically. While there is a method to do "UNDO", i could not find
a method for "REDO". So i tried to simulate a "REDO" action by using
the following method...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Undo
With Application.CommandBars("standard").Controls("Redo ")
With Application.CommandBars.FindControl(ID:=129)
If .Enabled Then
.Execute
End If
End With
End With
Application.EnableEvents = False
End Sub

I also tried this
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Application.Undo
SendKeys "^y"
Application.EnableEvents = true
End sub
Where "^y" is the shortcut for Redo.(Ctrl+Y)
Well only Application.Undo works, but Redo does not work. To check if
the code works i put the Control Id of Save As and tested and the save
dialog opened.
So, can anybody please tell me where am i going wrong or if there are
any other better approaches to do "REDO" programatically.