Range("A1").Select
    With Selection.Interior
        .ColorIndex = 8
        .Pattern = xlSolid
    End With
   

##</code><code>##

PERL -->
      $app->Range("A1")->Select with Selection->Interior({'ColorIndex'} => 8,{'Pattern'} => "xlSolid");