From: Sherry on
I need help with this , it will not run, am i missing something.

Private Sub Worksheet_Activate()
Call Sheet5.getvalues
Call Sheet5.SortRange1
End Sub
Sub getvalues()
lr = Application.Max(2, Cells(Rows.Count, 1).End(xlUp).Row)
'MsgBox lr
Rows("2:" & lr).ClearContents
With Worksheets("Automated RAC")
slr = .Cells(Rows.Count, "a").End(xlUp).Row
'MsgBox slr
For L = 2 To slr
dlr = Cells(Rows.Count, "a").End(xlUp).Row + 1
' If .Cells(L, "L") =jone and not .cells(f, "F") = "Closed" Then
..Rows(f).Copy Rows(dlr)
If .Cells(L, "l") = jones Then .Rows(F).Copy Rows(dlr)
Next L
End With
End Sub
Sub SortRange1()


End Sub
Sub Fixit1() 'Use if event macro stops working
Application.EnableEvents = True
End Sub




--
Sherry