Delet certain row in a sheets in workbook

[Arne Hegefors]

Hi! I have a big excel workbook with lots of sheets. In most sheets in column
A I have a list of dates. The rest of the columns contains values
corresponding to that date. Now sometimes there is a problem with the numbers
for a certain date. Then I want to be able to delete that particular row (for
that date) in every worksheet. Since there are so many it takes alot of time
to do manually. Does anyone have any idea on how to do this? thanks!

 

[carlo]

Hi arne

what do you mean by:
"Now sometimes there is a problem with the numbers for a certain
date."

is the date wrong, or is some other field wrong?

to give you a start for your code:

dim sh_ as worksheet

for each sh_ in activeworkbook.sheets
for i = sh_.cells(65536,1).end(xlup).row to 1 step -1
if sh_.cells(i,1).value = WRONG 'this is the line
'you have to change according to your problem
sh_.rows(i).delete
end if
next i
next sh_

hth

Carlo