Nesne Bulunamadı Hatası

[ahmed_ummu]

Merhaba arkadaşlar.

Kırmızı renkli kodlarda nesne bulunamadı diye hata veriyor. Yardımcı olabilir misiniz. Çizgiler arasındaki kod bloğu. Diğer kodlar çalışıyor.

Set t1 = Sheets("TYPİ1")
Set t2 = Sheets("TYPİ2")
Set t3 = Sheets("TYPÇ")
t1.Select

For i = 43 To 45
Rows(i).Hidden = False
Next i

Select Case ComboBox4.Value
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Case Is = "Şubat"
If ComboBox4.Value = "Şubat" And Format(Date, "yyyy").Value = 2024 Or Format(Date, "yyyy").Value = 2028 Or Format(Date, "yyyy").Value = 2032 Or Format(Date, "yyyy").Value = 2036 Or Format(Date, "yyyy").Value = 2040 Then
For i = 44 To 45
Rows(i).Hidden = True
Next i
Else
For i = 43 To 45
Rows(i).Hidden = True
Next i
End If
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Case Is = "Nisan"
For i = 45 To 45
Rows("43:44").Hidden = False
Rows(i).Hidden = True
Next i

Case Is = "Haziran"
For i = 45 To 45
Rows("43:44").Hidden = False
Rows(i).Hidden = True
Next i

Case Is = "Ekim"
For i = 45 To 45
Rows("43:44").Hidden = False
Rows(i).Hidden = True
Next i

Case Is = "Kasım"
For i = 45 To 45
Rows("43:44").Hidden = False
Rows(i).Hidden = True
Next i
End Select