Macro con celda dependiente combobox de otra hoja

Quería que me orienten en este problema que se me presentó
Tengo una hoja que contiene el código siguiente:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Unprotect (22222)
If Application.Intersect(Target, Target.Parent.Range("A4")) Is Nothing Then Exit Sub Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Range("h:s").EntireColumn.Hidden = True
If [A4] = "COMPLETA" Then 'Muestra filas ocultas según selección combobox
[H:K].EntireColumn.Hidden = False
ElseIf [A4] = "SIMPLE" Then
[L:O].EntireColumn.Hidden = False
ElseIf [A4] = "ASALARIADO" Then
[P:S].EntireColumn.Hidden = False
ElseIf [A4] = "AGRICOLA" Then
[H:K].EntireColumn.Hidden = False
End If
Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic ActiveSheet.Protect (22222)
End Sub
El valor de [A4] viene de otra hoja llamada "Control" y depende de un combobox cuya salida es justamente esta celda. El problema que tengo es que no me corre la macro automáticamente si es que no selecciono la celda A4 como especifico en la instrucción:
"If Application.Intersect(Target, Target.Parent.Range("A4")) Is Nothing Then Exit Sub"
Pero si no hago esto es peor, porque la macro se dispara cada que muevo el cursor. ¿Cómo podría solucionar este problema que me tiene varios días sin poder avanzar el trabajo?