View Single Post
  #5   Report Post  
Richard
 
Posts: n/a
Default

Sorry,

That third line in the loop should have read

Worksheets(x).Range("a1").CurrentRegion.ClearConte nts


Rgds