Example :
1. Prompt for the number of rows to insert from mouse pointer.
2. If mouse pointer is on Row 5 on Sheet 1
Link Sheets 1, 2 and 3
Copy simultaneously All Row 4 (Format & Formulas) from Sheet1, 2
and 3
3. Insert the number of copies to insert from Row 4 in Sheets 1, 2 and
3
to Row 5 in same Sheets.
4. Unlink Sheets 1, 2 and 3
Help appreciated.
J.P.

[BDeitrick]

It would be wrong to group (or 'link') the sheets.

Bernie

Sub TestMacro()
Dim i As Integer
Dim r As Long
Dim j As Integer
r = ActiveCell.Row
i = InputBox("How many copies?")
For j = 1 To 3
Sheets("Sheet" & j).Rows(r).Copy
Sheets("Sheet" & j).Rows(r + 1).Resize(i).Insert
Next j
End Sub

On Jul 26, 3:12*pm, u473 <u...@aol.com> wrote:
> Example :
> 1. Prompt for the number of rows to insert from mouse pointer.
> 2. If mouse pointer is on Row 5 on Sheet 1
> * * Link Sheets 1, 2 and 3
> * * Copy simultaneously All Row 4 (Format & Formulas) from Sheet1, 2
> and 3
> 3. Insert the number of copies to insert from Row 4 in Sheets 1, 2 and
> 3
> * * to * Row 5 in same Sheets.
> 4. Unlink Sheets 1, 2 and 3
> Help appreciated.
> J.P.

Why? Is this homework?