Hi
You can use the below code stage :
Input : Workbook, Handle, Worksheet, ColorCode
Dim wb, ws As Object
Dim excel, sheet As Object
wb = GetWorkbook(Handle, Workbook)
ws = GetWorksheet(Handle, Workbook, Worksheet)
wb.Activate()
ws.Activate()
excel = ws.Application
sheet = excel.ActiveSheet
excel.Selection.Interior.Pattern = 1
excel.Selection.Interior.Color = ColorCode
You may define the colorcode for the color that you want