vbaのFor Each～Nextループ逆順はないので For～Nextループのstep -1使うっきゃない

excelvba 
Sub ForNextループを逆から回すサンプル()
　Dim i as Long
　For i = Sheets.Count to 1 Step -1
　　Debug.Print Sheets(i).Name
　Next i
End Sub

ネタ元