this code is from @Fluff VBA Run macros on multiple sheets, not all sheets
Sub Button1_Click()
Dim ws As Worksheet
'** SET The Sheet Names - MUST Reflect Each Sheet Name Exactly!
WkSheets = Array("ATC1", "BEC1", "DKC1")
For Each ws In Sheets(Array("ATC1", "BEC1", "DKC1"))...