copy this code in your work sheet you have your drop down in
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim UndoString As String
Dim srce As Range
Dim trgt As Range
On Error GoTo err_handler
UndoString = Application.CommandBars("Standard").Controls("&Undo").List(1)
If Left(UndoString, 5) = "Paste" Then 'Only allow Paste Special|Values
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Undo
Target.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
ElseIf UndoString = "Auto Fill" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Set trgt = Selection
Application.Undo
Set srce = Selection
srce.Copy
trgt.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Exit Sub
err_handler:
End Sub
Bookmarks