View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default Negative Numbers

Hi
one way: try something like the following
sub foo()
dim rng as range
dim cell as range
set rng = activesheet.range("AP9:AP39)
for each cell in rng
if cell.value0 then
cell.value = -cell.value
end if
next
end sub

--
Regards
Frank Kabel
Frankfurt, Germany


Whats the VB code to make numbers negative?
I need the following column negative:
AP9:AP39


---
Message posted from http://www.ExcelForum.com/