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