Remove Else statement

[Livin404]

Greetings,

The following macro works great, and I only want to reduce the size of it. It was originally to be used if other text were to be included in the target cell. However, now there will always only be one string of text, so the "Else" statement is no longer needed. I could just keep it as it is but I think it would be better to trim down the maco if I can. Thank you very much.

The Macro is:

Sub Foreign_ACFT()
    Dim i As Long
    For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
        Select Case Left(ActiveSheet.Cells(i, 1).Value, 3)
            Case "UAF", "RRR", "IFC", "ASY", "LHO", "KAF"
               
If ActiveSheet.Range("G" & i) = "" Then
 ActiveSheet.Range("G" & i) = "FOREIGN"
      Else
ActiveSheet.Range("G" & i) = ActiveSheet.Range("G" & i) & "FOREIGN"
    End If
    End Select
Next i

End Sub

 

[Fluff]

so the "Else" statement is no longer needed.

Then why not delete it?

 

[Livin404]

Then why not delete it?

Yes, indeed not sure if I could delete

Else
ActiveSheet.Range("G" & i) = ActiveSheet.Range("G" & i) & "FOREIGN"
    End If
    End Select

In addition I would no longer need the

If ActiveSheet.Range("G" & i) = "" Then

those cells are going to be blank; I don't need to stipulate that. I just don't want to ruin anything.


Thank you,

 

[Fluff]

Have you tries removing the Else portion & running it on a copy of your data?