Hello
I have this code: 


Private Sub Worksheet_Activate()
ActiveWindow.Zoom = 75
End Sub
I normally place this code in the sheet tab when I added a new worksheet. Is there anyway to place this code in the Thisworkbook tab? And be included with the rest of code.

I want the code to work except Sheet1 and Sheet4 but will work in the rest of the worksheet.

This what I have not included the above vba code.

Private Sub Workbook_SheetChange(ByVal _
Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
If Intersect(Target, Range("AF11,X18")) Is Nothing Then
Target = UCase$(Target)
Else
Target = StrConv(Target, vbProperCase)
End If
Application.EnableEvents = True
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name = "BUTTONS" Then Exit Sub
On Error Resume Next
Dim iColor As Integer
iColor = Target.Interior.ColorIndex
If iColor < 0 Then
    iColor = 6
Else
    iColor = iColor + 6
End If
Cells.FormatConditions.Delete
Target.FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
Target.FormatConditions(1).Interior.ColorIndex = iColor

End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveCell.FormatConditions.Delete
End Sub
THANKS.