Thanks for reply.
It can't be from cell range
It does a Find with this code:
Sub FindWhat()
Cells.Find(What:="Here !", After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate ' back to new position ready to paste
' inserts 5 rows
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
End Sub
But I actualy need to add 30 Rows from the "Here !" location.
The location could be anywhere in sheet.
--
blazzae
------------------------------------------------------------------------
blazzae's Profile:
http://www.excelforum.com/member.php...o&userid=24981
View this thread:
http://www.excelforum.com/showthread...hreadid=385147