Try this

Range("F7").Select
With Selection.Interior
.ColorIndex = 11 'dark blue. Try other numbers to get what you want
.Pattern = xlSolid
End With

Let me know how you get on