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