¿Se podría lograr, al abrir una hoja, una lista desplegable se iniciara, en una posición?

Me vendria, muy bien, lograr que al abrir la hoja, la lista desplegabble que esta en, "D10", LISTA DESPLEGABLE: =$D$70:$D$89, se posicionase en la celda "D70".
Advirtiendo, que en la hoja, tengo esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 1 Then Exit Sub
If Target.Address(False, False) <> "D10" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set b = Range("D70:D" & Range("D" & Rows.Count).End(xlUp).Row).Find(Target, lookat:=xlWhole)
If Not b Is Nothing Then
[G43] = Cells(b.Row, "F")
Cells(b.Row, "F") = [G46]
End If
End Sub