based on the limited information provided:

Dim NumIn as Long, rng as Range, rng1 as Range
NumIn = InputBox.Value
set rng = Range(Range("A366"), Range("A366").Offset(NumIn - 1, 0))
set rng1 = rng.specialcells(xlvisible)
if not rng1 is nothing then
Range("AF1").paste
end if

--
Regards,
Tom Ogilvy

"dreamz" wrote:


hmm, any suggestions?


--
dreamz
------------------------------------------------------------------------
dreamz's Profile: http://www.excelforum.com/member.php...o&userid=26462
View this thread: http://www.excelforum.com/showthread...hreadid=538556