Thanks for the code. I'm getting a runtime error 9 - subscript out of range.

When I debug it's getting stuck here:

StrExp = Split(Split(FRList, vbCr)(j), vbTab)(0)

I've saved the downloaded word doc as AcronymList.doc and put it in my documents folder.

Anyone any ideas what I might have done wrong? I'm a little familiar with VBA but definitely no expert so it's hopefully something obvious to everyone else. Thanks in advance.