How To Get A For Loop With Multiple Things In Vba