Hi All, Thank you very much for your input. Here is the working code. 
my $Class = "Excel.Application";
my $excel = Win32::OLE->GetActiveObject($Class);
 if ( ! $excel )
 {
  $excel = new Win32::OLE( $Class )
   || die "Could not create an OLE '$Class' object";
 }
$excel -> {Visible} = 1;
$excel->{'DisplayAlerts'} = 0;
sortByColor("D:/sort.xls",12);

sub sortByColor()
{
    my $filename = $_[0];
    my $no_of_columns = $_[1];
    $excel->{DisplayAlerts}=0;
    my $workbook = $excel->Workbooks->Open($filename);
    my $sheet1=$workbook-> Activesheet;
    my $rows= $sheet1->UsedRange->Rows->{'Count'}; 
    my $cols= $sheet1->UsedRange->Columns->{'Count'};
    my $lastColumn =  colIdToString($cols);
    $sheet1->Range("A1:" . $lastColumn . $rows)->Select();
    $sheet1->Sort->SortFields->Clear();
    $sheet1->Sort->SortFields->Add($sheet1->Range("A2:A" . $rows),xlSo
+rtOnCellColor, xlAscending, xlSortNormal)->SortOnValue->{Color} = RGB
+(255, 0, 0);
    for (my $i = 1; $i <= $no_of_columns; $i++)
    {
        my $columnString = colIdToString($i);
        say "Adding COlumn $columnString to Sort";
        $sheet1->Sort->SortFields->Add($sheet1->Range($columnString . 
+"2:" . $columnString . $rows),xlSortOnCellColor, xlAscending, xlSortN
+ormal)->SortOnValue->{Color} = RGB(255, 255, 0);        
    }
    $sheet1->Sort->SetRange($sheet1->Range("A1:" . $lastColumn . $rows
+));
    say Win32::OLE->LastError();
    $sheet1->Sort->{Header} = xlYes;
    $sheet1->Sort->{MatchCase} = "False";
    $sheet1->Sort->{Orientation} = xlTopToBottom;
    $sheet1->Sort->{SortMethod} = xlPinYin;
    $sheet1->Sort->Apply;
}

sub RGB {
    my ( $red, $green, $blue ) = @_;
    return $red + ($green<<8) + ($blue<<16);
}
sub colIdToString{
    my $col = $_[0];
    my $column = "";
    switch ($col) {
            case 1 {$column="A"}
            case 2 {$column="B"}
            case 3 {$column="C"}
            case 4 {$column="D"}        
            case 5 {$column="E"}
            case 6 {$column="F"}
            case 7 {$column="G"}
            case 8 {$column="H"}
            case 9 {$column="I"}
            case 10 {$column="J"}
            case 11 {$column="K"}
            case 12 {$column="L"}
            case 13 {$column="M"}
            case 14 {$column="N"}
            case 15 {$column="O"}
            case 16 {$column="P"}
            case 17 {$column="Q"}
            case 18 {$column="R"}
            case 19 {$column="S"}
            case 20 {$column="T"}
            case 21 {$column="U"}
            case 22 {$column="V"}
            case 23 {$column="W"}
            case 24 {$column="X"}
            case 25 {$column="Y"}
            case 26 {$column="Z"}
        }
    return $column;
}

[download]

In reply to Re^2: Perl OLE Excel Sort By Color by martinslmn
in thread Perl OLE Excel Sort By Color by martinslmn

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.