Imports System.Drawing
Imports System.Runtime.InteropServices

Module Module1

    Sub Main()
        Dim fileName As String = "C:\Users\PFerro00\Desktop\Q8\Marketing consolidated non-operational Reporting\Input\Spese NEW\SPESE_YTD 1819 BUDGET.xls"
        Dim xlApp As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
        Dim xlWorkbook As Microsoft.Office.Interop.Excel.Workbook = xlApp.Workbooks.Open(fileName)
        Dim numSheets As Integer = xlWorkbook.Sheets.Count
        'Dim xlWorksheet As Microsoft.Office.Interop.Excel.Worksheet = xlWorkbook.Sheets(3)
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet = Nothing
        'xlWorksheet = xlWorkbook.Sheets(3)
        'xlWorkSheets=xlWorkBook.Sheets
        xlWorkSheet = CType(xlWorkbook.Sheets(3), Microsoft.Office.Interop.Excel.Worksheet)

        Dim xlRange As Microsoft.Office.Interop.Excel.Range = xlWorkSheet.UsedRange
        Dim rowCount As Integer = xlRange.Rows.Count 'dt.Rows.Count
        Dim colCount As Integer = xlRange.Columns.Count 'dt.Columns.Count

        For i As Integer = 1 To rowCount
            For j As Integer = 1 To colCount
                Dim myCell As Microsoft.Office.Interop.Excel.Range = DirectCast(xlWorkSheet.Cells(i, j), Microsoft.Office.Interop.Excel.Range)
                Dim myInteriorColor As Color = System.Drawing.ColorTranslator.FromOle(CInt(myCell.Interior.Color))
                Dim myHtmlColor As String = System.Drawing.ColorTranslator.ToHtml(myInteriorColor)
                '  Dim myCellText As String = DirectCast(myCell.Value2, String)
                Dim myFormula As String = DirectCast(myCell.Formula, String)
                If myHtmlColor = "#CCFFCC" And myFormula.Trim <> "" Then
                    '   myCell.Value = myCellText.Replace("]02", "]03")
                    myCell.Formula = myFormula.Replace("]01", "]02")
                End If
            Next
        Next

        GC.Collect()
        GC.WaitForPendingFinalizers()
        Marshal.ReleaseComObject(xlWorkSheet)
        xlWorkbook.Close()
        Marshal.ReleaseComObject(xlWorkbook)
        xlApp.Quit()
        Marshal.ReleaseComObject(xlApp)

    End Sub

End Module