Reply to thread

Message: [QUOTE="Mike H, post: 3285150"] Hi, Try this. Change this line S = "Sheet1,Sheet2,Sheet3" To the name of the sheets you DON'T want the code to run on Sub ClearStockCards() Dim Ws As Worksheet S = "Sheet1,Sheet2,Sheet3" V = Split(S, ",") For Each Ws In ThisWorkbook.Worksheets If IsError(Application.Match(Ws.Name, V, 0)) Then Ws.Range("D3,A7:A36,B8:B36").ClearContents End If Next Ws End Sub -- Mike When competing hypotheses are otherwise equal, adopt the hypothesis that introduces the fewest assumptions while still sufficiently answering the question. [/QUOTE]