Este fórum está sendo desativado

[MarceloCarvalho]

Boa tarde,
Encontrei essa macro para alterar os números positivos em negativos de uma determinada coluna.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And IsNumeric(Target.Value) Then
If Target.Value > 0 Then
Cells(Target.Row, Target.Column) = Target.Value * -1
End If
End If
End Sub

Porém preciso que apenas determinadas células fossem alteradas (B2:E9) sempre que fosse inserido um valor positivo.
Alguém poderia me ajudar?

[alexandrevba]

Boa tarde!!

Seria isso?

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("B2:E9")) Is Nothing Then Exit Sub
     If Target.Count > 1 Then Exit Sub
    If Target.Value > 0 Then Target = Target.Value * -1
End Sub

Att

[MarceloCarvalho]

Muito obrigado Alexandre, é isso mesmo.