Küçük bir kod isteği

[ZFRKNC]

öncelikle merhabalar; excel'de bir butonum var o butona basınca seçili hücrelerin hem rengi ,hem de ismi değişiyor ve saçilen hücreler istenilen aralıkta değilse uyarı veriyor.Kullandığım kod ;
Sub Ö_ÇATAL()
Dim hücre_fiz As Range
For Each hücre_fiz In Selection
If Not Intersect(hücre_fiz, [C6:T6]) Is Nothing Then
Selection.Interior.Color = RGB(127, 255, 212)
Selection.Value = "Ö. ÇATAL"
Else

MsgBox "SERDAR BEY , lütfen ;" & vbNewLine & "" & vbNewLine & " * FİZİK * " & vbNewLine & "" & vbNewLine & "    Satırından hücreler seçiniz..", vbOKCancel + vbInformation, " BİLGİLENDİRME ...  "
Exit Sub
End If
Next hücre_fiz

Seçilen hücreler arasında c6:t6 arasında herhangi bir hücre yok ise sıkıntı olmuyor ancak , seçilen hücreler örneğin c6 ve c7 ise bu sefer hem uyarı veriyor hem de hücrelere isim yazıp,rengini değiştiriyor.Bunu nasıl düzeltebilirim ?
Teşekkür ederim .

[Bülent Öztürk]

Merhaba,

Tam olarak nasıl bir işlem olması gerekiyor?
Nereyi seçince ne olacak?
Seçmeyince ne olacak?

Teşekkürler.