VBAでエラーが発生する。

自宅PCのExcelのライセンスが切れ、LibreOfficeを使用しているのでエラーの文言が違うかもしれませんが、

「オブジェクトにアクセスできません。
無効なオブジェクト参照。」と、エラーが表示されます。

場所は以下です。
Set Star = Cells(C_Row, C_Clm)

【やりたいこと】

範囲はI8:T17
上記の範囲の中で、セルに色がついている場合は無視
セルに色がついておらず、尚且つ文字(データ)が入っているセルを赤くする
ただし、3)の条件でもセル[00][56]と並んでいるデータに関してはセルを赤くしない

テーブル内には色のついていないセルで[00]単体のものもあるが、単体の場合はセルを赤くする
5) 1)の範囲に1つでも赤いセルがあればU5に×、赤いセルがない場合は〇と記載する

問題のコードです↓
※5）にはまだ至っていません。

VBA
1Option Explicit
2
3Sub AAA()
4	Dim i As Integer, j As Integer
5	Dim C_row As Integer, C_Clm As Integer
6	Dim Star As integer
7	Dim Luz As integer
8	Dim Cielo As integer
9	Dim Flag As Boolean
10
11	'[go 05]をチェックする
12	i = 8
13	j = 9
14
15	For C_Row = 8 To 20 Step 1
16		For C_Clm = 8 To 17 Step 1
17
18		Set Star = Cells(C_Row, C_Clm)
19
20		For Each Star In Luz
21			Flg = False
22			Select Case True
23				Case Not Star.Interior.Color = xlNone
24				Case Star.Value = "FF"
25				Case Star.Value = "00" and Star.Offset(,1).Value = "56"
26				Case Len(Star.Value) = 0
27				Case Else: Flg = True
28            End Select
29
30			If Flag Then
31				If Cielo Is Nothing Then
32					Set Cielo = Star
33 				Else
34                    Set Star = Union(Cielo, Star)
35				End If
36
37				If Star.Interior.ColorIndex = xlNone Then
38                     Range(Cielo).Interior.Color = 22
39				End If
40			Next
41		Next
42	Next
43
44End Sub

行動規範の内容に同意します

回答2件

以下の回答は、LibreOfficeは使っていないのでExcelの場合は、の回答になります。

Set Star = Cells(C_Row, C_Clm)

Setはオブジェクトを代入する際に使うものです。
CellsはRangeオブジェクトを返しますが、受け取り側のStarがintegerで定義されているので誤りです。
またRangeで定義したとしてもCellsは1セル分しか返さないので、そのあとのFor Eachの意味がありません。
というかFor Eachで使ってるLuzってどこから出てきたのでしょうか。
For EachはこのLuzについて回るので値をセットしないといけません。