Livin404
Well-known Member
- Joined
- Jan 7, 2019
- Messages
- 743
- Office Version
- 365
- 2019
- Platform
- Windows
I need to identify a 12 character alpha/numeric text strings. (AAA0853J2315) for example. I have my Macro that I know works, but I'm trying to use just the first three alphanumeric characters since those will never change. I've tried "AAA", "AAA*********", "AAA#########", and few others. Thank you,
VBA Code:
Sub Foreign_ACFT()
Dim i As Long
For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Select Case ActiveSheet.Cells(i, 1).Value
Case "UAF*********", "RRR*********", "IFC*********"
ActiveSheet.Range("F" & i) = "Check Port of Entry Requirements"
End Select
Next i
End Sub