in the query driving your report have a formula something like:
SHOWME: iif(forms!FORMNAME![General Prod] = -1 and [Area of SOP] = 'General Prod', 1, 0) + iif(forms!FORMNAME![Granulation] = -1 and [Area of SOP] = 'Granulation', 1, 0)
Then apply a criteria of
>=1 to the SHOWME field
no
the >=1 goes in the CRITERIA line of your query driving the report not in the vba code.