enti pregunta

Private Sub Worksheet_Change(ByVal Target As Range) Dim Rng As Range On Error Resume Next Set Rng = Intersect(Target, _ Range("F18:F30,C18:C30,D18:D30,E18:E30,G18:G30,I18:I30,K18:K30,L18:L30")) On Error GoTo 0 If Rng Is Nothing Then Exit ...