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, 115.0, 150.0, False, True
    Next