Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.ComboBox1.Visible = False
If Target.Count > 1 Then Exit Sub
If Target.Row = 1 And Target.Column = 1 Then
With ComboBox1
.Visible = True
.Top = Target.Top
.Left = Target.Left
.Width = Target.Width
.Height = Target.Height
End With
End If
End Sub