I would like to fill Color in a range of cells depending on multiple conditions and selection of the cells. here is the code 

```
Sub color()

  Dim j As Integer
  Dim testfallname As String
  Dim rng As Range
  Dim rCell As Range
  Dim UnionRange As Range
  Dim wb As Workbook
  Dim ws As Worksheet

   Set wb = ThisWorkbook
   Set ws = wb.Sheets("1-BR_Vorschlag")

  ws.Activate
  For j = 7 To 1000
If ws.Cells(1, j) = "ARB11" Or ws.Cells(1, j) = "FVB1" Or ws.Cells(1, j) = "FVB4E" Then
testfallname = Cells(5, j)
Set rng = ws.Range("G5:AQ5").Find(testfallname)
End If

   Set UnionRange = Union(ws.Range(Cells(34, rng.Column), ws.Range(Cells(39, rng.Column), ws.Range(Cells(49, rng.Column), Cells(50, rng.Column), ws.Range(Cells(53, rng.Column), Cells(54, rng.Column), ws.Range(Cells(59, rng.Column), Cells(61, rng.Column), ws.Range(Cells(66, rng.Column), Cells(77, rng.Column), ws.Range(Cells(85, rng.Column), Cells(97, rng.Column)))))))))

With ws
  For Each rCell In UnionRange
        If rCell.Value = vbNullString Then
            rCell.Interior.color = 8421504
       End If
    Next rCell
End With
Next j

```

Here is the Actual code. Now I get an error again saying wrong number of arguements or invalid property assignment. It Debugs the Union Range line. Where am I going wrong?