Ocultar Columna

Ya lo resolví
If Cells(4, 15) = Empty Then
Range("P:Q").EntireColumn.Hidden = True
Else: Range("P:Q").EntireColumn.Hidden = False
End If

Ahora me queda una situación a ver si se puede todo por la eficiencia:
Yo introduzco un dato y la "celda" la desplazo horizontalmente.
(Generalmente
despues del Enter la celda se activa es hacia abajo)
Entonces cuando doy enter, se activa la siguiente celda de la columna
visible. (así lo configuré)
Por lo tanto me toca regresarla 2 Columnas.
Pregunto: Con el solo hecho de introducir el dato sin Enter, no se pude
activar lo de mostar la columna?

Gracias

Oscar
Barranquilla

"Compumakro" escribió en el mensaje
news:

Amigos
Necesito ocultar dos columnas si una celda está en Blanco.
Normalmente las columnas deben estar ocultas porque la celda "O4" estaría
vacía.
Pero si escribo algo deben aparecer pas columnas P y Q "Automáticamente"
para recibir los datos referentes a esa celda.
Luego yo inserto otra fila y nuevamente la fila 4 estaría vacía y por
consiguiente la celda "O4". esto ocasiona que se oculten nuevamente las
columnas P y Q.

Hice algo que no me funcionó:
If Cells(4, 16) = Empty Then
Sheets(VENTAS).Columns("P:Q").Hidden = True
Else: Sheets(VENTAS).Columns("P:Q").Hidden = False
End If

Saludos

Oscar
Barranquilla