estoy realizando una macro en excel, la cual al ingresar un dato en una celda, esta quede inabilitada.
tengo el siguiente codigo.
Código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Worksheets("hoja1").Cells(2, 1) <> Empty Then
If Target.Address = "$A$2" Then Target.Offset(0, 1).Select
End If
End Sub

muchas gracias por su colaboracion.
tony82