Hucreye tiklanildiginda rengi degissin

[alphae]

Asagidaki kodu, belirledigim alan icerisindeki herhangi bir hucreye tikladigimda o hucrenin rengini degistirecek bicimde ayarlamak istiyorum. Yardimci olabilecek varmi?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("a1:az1000")) Is Nothing Then Exit Sub
Range("A1").Interior.Color = vbRed
Range("A1").Font.Color = vbWhite
Range("A1").Font.Bold = True
End Sub


Ornek dosya icin:
https://www.sendspace.com/file/sm3udf

 

[Orion1]

Buyurun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B5:G16")) Is Nothing Then Exit Sub
Range("B5:G16").Interior.ColorIndex = 0
Range("B5:G16").Font.Color = vbBlack
Range("B5:G16").Font.Bold = False
Target.Interior.Color = vbRed
Target.Font.Color = vbWhite
Target.Font.Bold = True
End Sub

 

[alphae]

Eyw cok sagolun... Ben de simdi ugrasirken sorunu cozdum.. Alternatif olmasi acisindan;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("b5:g16")) Is Nothing Then Exit Sub
Selection.Interior.Color = vbRed
Selection.Font.Color = vbWhite
Selection.Font.Bold = True
End Sub