I have a macro that when activated will add (3) rows to a section of the
worksheet. To enhance flexibility, I would like to interrupt the macro to ask
the end user how many rows they would like to insert, set the macro to the
user number and complete the macro process. The following is the automated
macro that inserts the (3) rows automatically. Any help would be appreciated.
Thank You, JAD


Call Security_Unprotect
Application.Goto Reference:="Me02_END"
ActiveCell.Offset(0, 0).Range("a1:a3").Select
Selection.EntireRow.Insert
ActiveCell.Offset(0, 0).Range("a1").Select
ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell
Application.Goto Reference:="Me_COPY"
Selection.Copy
Application.Goto Reference:="Me02_NEW_START"
ActiveSheet.Paste
Application.Goto Reference:="MM_EQ_Menu_Selection"
Call Security_Protect
End Sub

If you know you will always input on the top row meaning A1, then all you
need to use is the Input Function.

myNum = Application.InputBox("Enter a number")
Then susbtitute the variable MyNum in your code
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"JAD" wrote:

> I have a macro that when activated will add (3) rows to a section of the
> worksheet. To enhance flexibility, I would like to interrupt the macro to ask
> the end user how many rows they would like to insert, set the macro to the
> user number and complete the macro process. The following is the automated
> macro that inserts the (3) rows automatically. Any help would be appreciated.
> Thank You, JAD
>
>
> Call Security_Unprotect
> Application.Goto Reference:="Me02_END"
> ActiveCell.Offset(0, 0).Range("a1:a3").Select
> Selection.EntireRow.Insert
> ActiveCell.Offset(0, 0).Range("a1").Select
> ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell
> Application.Goto Reference:="Me_COPY"
> Selection.Copy
> Application.Goto Reference:="Me02_NEW_START"
> ActiveSheet.Paste
> Application.Goto Reference:="MM_EQ_Menu_Selection"
> Call Security_Protect
> End Sub

You can also try something like this:
MyNum = Application.InputBox("Enter a number")
For i = 1 To MyNum
Range("A1").EntireRow.Insert
Next i
--
If this posting was helpful, please click on the Yes button.
Regards,

Michael Arch.




"JAD" wrote:

> I have a macro that when activated will add (3) rows to a section of the
> worksheet. To enhance flexibility, I would like to interrupt the macro to ask
> the end user how many rows they would like to insert, set the macro to the
> user number and complete the macro process. The following is the automated
> macro that inserts the (3) rows automatically. Any help would be appreciated.
> Thank You, JAD
>
>
> Call Security_Unprotect
> Application.Goto Reference:="Me02_END"
> ActiveCell.Offset(0, 0).Range("a1:a3").Select
> Selection.EntireRow.Insert
> ActiveCell.Offset(0, 0).Range("a1").Select
> ActiveWorkbook.Names.Add Name:="Me02_NEW_START", RefersToR1C1:=ActiveCell
> Application.Goto Reference:="Me_COPY"
> Selection.Copy
> Application.Goto Reference:="Me02_NEW_START"
> ActiveSheet.Paste
> Application.Goto Reference:="MM_EQ_Menu_Selection"
> Call Security_Protect
> End Sub