This is what it looks like now. I changed it a bit based on what you told me before.
Dim months, vars
months = Split("JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC",",")
vars = Split("AHTC,AHTE,AHTO,CPH,ATT,TIPS,OBS,REV,MEET,DEV",",")
FOR v=0 TO ubound(vars)
Execute("Dim " & vars(v))...