Results 1 to 10 of 10

Cycle Through A Series of Worksheets & Insert Rows, Then Special Paste Data

Threaded View

  1. #5
    Forum Expert
    Join Date
    07-31-2010
    Location
    California
    MS-Off Ver
    Excel 2007
    Posts
    4,070

    Re: Cycle Through A Series of Worksheets & Insert Rows, Then Special Paste Data

    This should answer 3 and 4. I added onto AB33's solution for 1 and 2. If the "like" method doesn't work you could always try instr
    Sub test1()
    Dim sh as Worksheet
     For Each sh In ThisWorkbook.Worksheets
       With sh
       If sh.Name Like "WK*" Then
                .Rows(64).Resize(23).Insert Shift:=xlDown
                .Range("A87:AA109").Copy Destination:=.Range("A64")
                End If
        End With
     Next sh
     
    End Sub
    Last edited by stnkynts; 12-26-2012 at 07:15 PM.

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Tags for this Thread

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1