Macro to delete columns except selected columns

I know there must be a better way.

Sub VKR()

For Each rcell In Range("A1:Z1")

    If rcell <> "AA" Then
    
        If rcell <> "BB" Then
        
            If rcell <> "CC" Then
            
                If rcell <> "DD" Then
                
                    If rcell <> "EE" Then
        
                        rcell.EntireColumn.Delete xlToLeft
                        
                    End If
                    
                End If
                
            End If
            
        End If
        
    End If
    
Next rcell
    
End Sub

Replace the letters with your Header names and expand the Columns range to suit

It works...Thanks to both..

To VKR you're welcome.

To jaslake. No problems from me. It a good policy and learning experience to see different ways to solve problems.