My 1st observation would be to exchange your if/then logic to case/select.
vGetCellValue = Cell.Value
Select Case vGetCellValue
Case "g"
Cell.Font.ColorInde x = 4
Cell.Interior.ColorIndex = 4
Case "b"
Cell.Font.ColorInde x = 1
Cell.Interior.ColorIndex = 1
Case "r"
Cell.Font.ColorInde x = 3
Cell.Interior.ColorIndex = 3
Case Else
'default option
End Select