Thanks for the response, OssieMac. We're part of the way to a solution.
I inserted the statement
between the Worksheets... and Selection... statements in the original post.
All avarSheets are selected. The active cell in all avarSheets became the
active cell in avarSheet(0) offset by intRow. avarSheet(0) was the only
sheet on which the row was insereted.
The calling procedure assembles an array of sheets:
Dim avarSheet() As Variant, i As Integer, intSheet As Integer
intSheet = Worksheets.Count - 3
ReDim avarSheet(intSheet) As Variant
For i = 0 To intSheet
avarSheet(i) = Worksheets(i + 3).Name
The subroutine is defined:
Sub sbrInsertRow(avarSheet As Variant)
If I set a breakpoint on the With statement in the original post of the
subroutine, the sheets named in the array are grouped.
What am I missing?