title: VBA error Invalid Use of Property
body: <p>this has definitely been asked for but I'm not sure how the answers were applicable to my problem and so it remains unresolved. I'm looking to call certain codes when I click on a certain spreadsheet and have been able to do it until I included a fourth, new code. Now when I click on Sheet 2, the sheet with the code below, it highlights Sub Worksheet_Activate() and displays Invalid Use of Property.</p>
  
  <pre><code>Sub Worksheet_Activate()
  
  Call VBAProject.Module1.ComplexCopyPust
  Call VBAProject.Module2.ComplexCopyPust
  Call SetPrintArea
  Call Sort
  
  End Sub
  </code></pre>
  
  <p>I only added the Call Sort. It worked with all the other codes beforehand.</p>
  
  <p>Call Sort code below. I used record macro to create it.</p>
  
  <pre><code>Sub Sort()
  '
  ' SortNumberLetter Macro
  '
  
   On Error Resume Next
   'Finds last row of content
    ALastFundRow = Columns("C").Find("*", SearchDirection:=xlPrevious, 
    SearchOrder:=xlByRows, LookIn:=xlValues).Row
  
  
    '
  On Error Resume Next
  Range("A8:Q" &amp; ALastFundRow).Select
  ActiveWindow.SmallScroll Down:=-462
  ActiveWorkbook.Worksheets("WIRE SCHEDULE").Sort.SortFields.Clear
  ActiveWorkbook.Worksheets("WIRE SCHEDULE").Sort.SortFields.Add Key:=Range( _
      "A8:A" &amp; ALastFundRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      xlSortTextAsNumbers
  ActiveWorkbook.Worksheets("WIRE SCHEDULE").Sort.SortFields.Add Key:=Range( _
      "C8:C" &amp; ALastFundRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
      xlSortNormal
  With ActiveWorkbook.Worksheets("WIRE SCHEDULE").Sort
      .SetRange Range("A8:Q" &amp; ALastFundRow)
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
  End With
  End Sub
  </code></pre>
  
  <p>Anything helps!</p>