Hey Guys!

Any ideas on how to speed this macro up?


Sub extractCORP()

Call appoff


Dim N As Long
MAXLINE = 50000


For N = 10 To MAXLINE

'MYCURRENTCELL = UCase(Left(Cells(N, 2).Value, 11))
MYCURRENTCELL = Cells(N, 2).Value
Select Case MYCURRENTCELL
Case "LATAM_BONOS", "RF CORP FRN", "RF_CORP_AUT", "RF_CORP_CON", "RF_CORP_TMT", "RF_CORP_UTIL"
Case ""
    
    Exit Sub
Case Else
    Rows(N).Select
    Selection.Delete
    N = N - 1
End Select


Next



Call appon


End Sub

Also, any tips on how to speed up my macros and excel in General? Thanks!