I am using the following marco to copy colors in Column F in Column G

Sub copycolors()
Dim cell As Range, s As String
s = "G"
For Each cell In Range("F4:F30")
Range("G" & cell.Row).Interior.Color = cell.Interior.Color
Next cell
End Sub


The Problem is column F is a drop down menu, conditioned to be a certain color if text matches another.

The above formula isn't picking up the color unless its filled manually, help would be greatly appreciated.