mxSSDSI1 = 6
Set TheApp = CreateObject("MaxIm.Application")
    Set AllDocs = TheApp.Documents
    For I = 1 To AllDocs.Count
Set X = AllDocs.Item(I)
   X.ConvertColor mxSSDSI1, 100.0, 130.0, 140.0, False, False
    Next