I am currently running a code that loops through all the worksheets to apply a validation to a range of cells. My problem is I would like to apply the validation to all worksheets except the last 1 where I store my key values. I was trying a for loop but something seems to be missing to apply the formatting. here is the current code i am using. Also is there a way to apply validation without selection? or a clear selection when code is finished?

Private Sub Workbook_Open()

Dim sh As Worksheet

For Each sh In ActiveWorkbook.Sheets
    sh.Activate


Range("c1:G12").Select
    With Selection.Validation
        .delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=Key!$A$1:$A$22"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
Range("A1").Select


Next sh
End Sub