oops. it's dim A1() as string

sorry about that :-)