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