Validation drop-down lists

Does anyone know if there is a way to make a drop-down list appear when a cell is double-clicked as opposed to just clicking on the box to the right of the cell that appears when you click in the cell? I want to be able to use the ability to drag-copy the cell contents from the little square in the bottom-right of the cell, but cannot do this when there is a validation drop-down list!!

At the moment I am using Excel 2000. When I click on the cell with validation the drop down appears. However, using the mouse to hover over the bottom right corner allows me to drag the cell downwards. This is a common way to copy cells with validation.

It should be

Works fine on the example that you sent. Have you added any protection?

No, maybe you could run repair from the Office CD

Have you checked sheet protection? I'm limited to 2000 here

Not solved at all in fact.
When i do as above, i can use the black +. However, as soon as i use the calendar, my original problem resurfaces. There must be something in the Calendar Macro causing the problem.

How do i change the protection command with in the macros to allow you ability to edit objects?
I assume that when the macro turns protection back it, it resets and you can no longer edit objects, that is what appears to be happening.

This is what i have at present

Option Explicit
Option Compare Text
Private Sub Calendar1_Click()
    ActiveSheet.Unprotect "secret"
    With ActiveCell
        .Value = CDbl(Calendar1.Value)
        .NumberFormat = "dd/mm/yyyy"
        .Select
        End With
        Calendar1.Visible = False
        ActiveSheet.Protect "secret"
    End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("k7:k606"), Target) Is Nothing Then
        If Target.Value = "Yes" Then
            ActiveSheet.Unprotect "secret"
            Call ExtractToSheets
            Call TestLock
            ActiveSheet.Protect "secret"
        End If
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Application.Intersect(Range("i7:i606"), Target) Is Nothing Then
        ActiveSheet.Unprotect "secret"
        With Calendar1
            .Left = Target.Left + Target.Width - Calendar1.Width
            .Top = Target.Top + Target.Height
            .Visible = True
            ' select Today's date in the Calendar
            .Value = Date
        End With
    ElseIf Calendar1.Visible Then Calendar1.Visible = False
        ActiveSheet.Protect "secret"
    End If
End Sub

Using the calendar does not affect it for me

I will check when I can get on my laptop