Macro goal seek with changing cell avoiding negative values

[gabrieedis]

Hello guys,

I am doing a simple goal seek in VBA but I want that if the changing cell should be negative it appears a cero instead. I mean, limit the changing cell to 0 or positive numbers and avoid negative numbers.

This is the macro that I am using:

Range(A3).GoalSeek Goal:=Range(A2).Value, ChangingCell:=Range(A1)


Thanks!