I have a workbook with four worksheets are formatted in exactly the same way. They all have 12 blocks (one per month) of data plus a summary at the top of the page.

In Column A are some simple identifiers which are the same in each block.

So if I want to go to Find D&C in May I can select Find D&C and click it five times plus one for the Summary at the top.

I have written a macro which works fine but I was trying to expand part of it so that the Activecell on each of the four worksheets was the same but when I expand to include an array it doesn't like this bit 
Selection.FindNext(After:=ActiveCell).Activate
This is a small part of the macro.

All help much appreciated.

    Sheets(Array("Link To Weekly Sales", "Link To Frontlist", "Link To TA", _
        "Link To Backlist")).Select
    Sheets("Link To Weekly Sales").Activate
    Range("A1").Select
    Columns("A:A").Select
    Selection.Find(What:="D&C", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    Selection.FindNext(After:=ActiveCell).Activate
    ActiveCell.Offset(0, 1).Range("A1").Select
    Sheets("Link To Weekly Sales").Select