Claro que se puede
basicamente este es el codigo:
Código:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
ColAct = ActiveCell.Column
If ColAct = 1 Then
LinAct = ActiveCell.Row - 1
RngLe = "A" & LinAct
IF Range(RngLe).Value = "X" then
RngGr = "A" & LinAct + 1
Range(RngGr).Value = "OK"
End If
End If
End Sub
Solo que ese codigo lo tienes que poner dentro del codigo de cada hoja, dando click izquierdo en el mouse y ver codigo
Es más o menos lo que requieres, espero te sirva ;)
Saludos
El Reportero de los Foros