Записать на место отрицательных элементов матрицы 0. VBA. Матрицу можно любую. VBA. Матрицу можно любую

sub ppp()
dim A(5,6)
for ii = 1 to 5
for jj = 1 to 6
next jj
if A(ii,jj)<0 then ' если элемент отрицательный
A(ii,jj)=0 ' то запишем в него 0
end if
next ii
end sub