Code Help

[Philcjr]

Thanks Zack,

I added your code, it errored until I added " .Activate " to your code. All works well!

With Workbooks("Book1.xls").Worksheets("Sheet1") 
    .Activate 'Added this line
    .Cells.VerticalAlignment = xlCenter 
    .Cells.FormatConditions.Delete 
    .Columns("A:L").AutoFit 
    .Rows.AutoFit 
    .Rows("2").Select 
    ActiveWindow.FreezePanes = True 
    .Rows("2").Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") 
End With