Hello All,
When I run this macro it gives me "copy mehtod of range class failed"
Can someone pls help me. All I doing is to let it get the ranges an
insert in order form at range A12.
I have Excel2000

Saziz

Sheets("Mixing Coating").Select
Set rng = ActiveSheet.Range("H12:H25")
For Each cell In rng

If cell.Value < "" And cell.Value < 5 Then
cell.Offset(0, -7).Resize(1, 4).Copy _
Worksheets("OrderForm").Range("A12").Insert





End If
Nex

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