Thanks, but the line in red seems to be causing an error.

Sub ABC()
Dim rng As Range, rng1 As Range
Range("A12").CurrentRegion.AutoFilter _
Field:=1, Criteria1:=Range("A11").Value
Set rng = ActiveSheet.AutoFilter.Range
If rng.Columns(1).SpecialCells(xlVisible).Count 1 Then
With rng.Columns(1)
Set rng1 = .Offset(1, 0).Resize( _
..Rows.Count - 1, 1).SpecialCells(xlVisible)
rng1.Name = Range("A11").Value
End With
End If


End Sub


--
SanctifiedRock
------------------------------------------------------------------------
SanctifiedRock's Profile: http://www.excelforum.com/member.php...o&userid=34485
View this thread: http://www.excelforum.com/showthread...hreadid=542474