I created an Excel Macros to experiment changing the fill in a cell. The resulting code is below. All I would need to do is plug in the three cell ranges I would want to have a black fill if a certain option is made within the UserForm. Now, I need to know how to connect the IF function to this code? If a person, for example, selects 'Male', then the cell on the Excel Worksheet will recieve a black fill. This will allow the end user, when the worksheet it printed, to remember those three items are unecessary to cover for this person.

Sub Black_Fill()
'
' Black_Fill Macro
'

'
    Range("I6").Select
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight1
        .TintAndShade = 4.99893185216834E-02
        .PatternTintAndShade = 0
    End With
End Sub