Quote:
Originally Posted by gmaxey
To be perfectly honest, what you have typed and described makes little sense. You might try something like:
Code:
Sub Abbreviations()
Dim lngIndex As Long
Dim arrTerms(1, 1)
arrTerms(0, 0) = "A/C"
arrTerms(1, 0) = "AAR"
arrTerms(0, 1) = "Aircraft"
arrTerms(1, 1) = "Aircraft Architecture Review"
For lngIndex = 0 To UBound(arrTerms, 1)
Debug.Print arrTerms(lngIndex, 0) & " - "; arrTerms(lngIndex, 1)
Next lngIndex
lbl_Exit:
Exit Sub
End Sub
|
Thank you for your reply. Even tho I haven't expressed myself clearly, you managed to understand and delivered a code that works for my needs!
I'll just adapt now to search for these results.
Best,
Daniel