Option Explicit
Dim V As Variant
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'myDearFriend! - 24/01/06
Dim VF As String
On Error Resume Next
VF = Target.Validation.Formula1
If VF = '=mDF' Then
If Len(ActiveCell.Value) > 0 Then
Application.EnableEvents = False
ActiveCell.Value = IIf(Len(V) > 0, V & ',', '') & ActiveCell.Value
Application.EnableEvents = True
SendKeys '%{DOWN}'
End If
V = ActiveCell.Value
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
V = ActiveCell.Value
End Sub