Dim mm, nn
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If nn > 1 Then
Selection = mm
Application.EnableEvents = True
Exit Sub
End If
If mm <> "" Then Target = mm
Application.EnableEvents = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
nn = Target.Count
mm = Target
End Sub