try changing this part to be as below
Rows(Sh1RowCount).Copy
Selection.Copy
Should work. Post back if you have problems.
Novice Lee wrote:
I am running Excel 2003 and I get the Run time error '438' Object doesn't
support this property or method msg box.
the section it hangs up on is
With Sheets("Data")
Do While .Range("b" & Sh1RowCount) < ""
If .Range("d" & Sh1RowCount) < "" Then
.Row(Sh1RowCount).Copy _
'Destination:=Sheets("ald").Row(Sh2RowCount)
Sh2RowCount = Sh2RowCount + 1
End If
If .Range("d" & Sh1RowCount) < "" Then
.Row(Sh1RowCount).Copy _
Destination:=Sheets("visual").Row(Sh3RowCount)
Sh3RowCount = Sh3RowCount + 1
End If
Sh1RowCount = Sh1RowCount + 1
Loop
End With
the rows it highlights in yellow is the following
.Row(Sh1RowCount).Copy _
'Destination:=Sheets("ald").Row(Sh2RowCount)
I tried to figure it out but I couldn't
Any help would be greatly welcomed
Thanks
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200807/1