hücre seçimini tersine çevirme

[poetika]

belki çok kolay bir soru gibi olacak ama internette de çok araştırdım fakat bulamadım o yüzden affınıza sığınarak sorumu sormak istiyorum.
seçtiğim hücre aralığı dışındaki tüm hücrelerin rengini beyaza çevirmek istiyorum. yardımlarınızı bekliyorum.

 

[hamitcan]

Sub Beyaz()
    Set alan = Range(Selection.Address)
    Cells.Interior.Color = vbWhite
    alan.Interior.ColorIndex = xlNone
End Sub