Sub Copydata()
Dim rng As Range

Set rng = Worksheets("Sheet1").AutoFilter.Range.Columns(3)
Set rng = rng.Offset(1, 0).Resize(rng.Rows.Count - 1, 1)
On Error Resume Next
Set rng = rng.SpecialCells(xlVisible)
On Error GoTo 0
If Not rng Is Nothing Then
Worksheets("Sheet2").Cells(Rows.Count, 2).End(xlUp)(2).Value = _
rng(1).Value
End If

End Sub

--
Regards,
Tom Ogilvy

"alan_bourne" wrote in message
...

???????? any luck


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/