MACRO LayerSibling
DEFINE i AS integer
DEFINE theLay AS layer
i = activeDoc.layerCount
theLay = activeDoc.layers[i]
WHILE (exists (theLay) = true)
MESSAGE "Processing layer " + theLay.name
theLay = theLay.previousSibling
END WHILE
END MACRO