Maybe something like this?
Code:Sub Insert_Rows() Dim x Dim y Dim InsertSpot x = "string to find" On Error Resume Next InsertSpot = Application.Match(x, Columns("A:A"), 0) On Error GoTo 0 If IsError(InsertSpot) Then MsgBox "Didn't find " & x Else y = InputBox("Rows to insert") Range("A" & InsertSpot).EntireRow.Resize(y).Insert End If End Sub
Bookmarks