title: Can I have more than one event code under "this Workbook"
body: <p>I have these 2 codes: </p>
  
  <pre><code>    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Application.ScreenUpdating = False
  For Each Value In Target.Columns
      Columns(Value.Column).ColumnWidth = 8.43
      Worksheets(Sh.Name).Columns(Value.Column).AutoFit
  Next Value
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>and</p>
  
  <pre><code>    Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      Application.EnableEvents = False
      If Not Target.Cells.Count = 1 Or Target.Row = 1 Then Exit Sub
      If Target.Offset(1, 0) = "" Then
          Target.Offset(-1, 0).Copy
          Target.PasteSpecial Paste:=xlPasteFormats
          Application.CutCopyMode = False
      End If
      Application.EnableEvents = True
  End Sub
  </code></pre>
  
  <p>This two pieces of code work fine but the thing is I can't make them work together these 2 codes should be place under "This Workbook" object in excel so I've been trying to come up with a way for this to work I do understand that you should only have one event code in a workbook but that there is a "workaround" it someone suggested the following:</p>
  
  <pre><code>    Private Sub Worksheet_Change(ByVal Target As Range)
      Call Macro1(Target)
      Call Macro2(Target)
  End Sub
  
  Sub Macro1(ByVal Target As Range)
      If Target.Column = 1 And Target.Offset(1, 0) = "" Then
          Target.Offset(-1, 0).Copy
          Target.PasteSpecial Paste:=xlPasteFormats
          Application.CutCopyMode = False
      End If
  End Sub
  
  Sub Macro2(ByVal Target As Range)
      Application.ScreenUpdating = False
  For Each Value In Target.Columns
      Columns(Value.Column).ColumnWidth = 8.43
      Worksheets(Sh.Name).Columns(Value.Column).AutoFit
  Next Value
  Application.ScreenUpdating = True
  End Sub
  </code></pre>
  
  <p>But it does not work none of the event are triggered so as I type nothing happens, I thought at first it would be impossible but when someone suggested this at first it made sense but it doesn't work but still I saw a shred of hope which I want to hang on tight to but since I don't know who to make it work.</p>
  
  <p>Is it possible to have these 2 codes working on the same workbook?</p>