Possible solution:
1) On the Tools menu in Microsoft Excel, point to Macro, and then click Visual Basic Editor.
2) d-click on the ThisWorkbook object in the left hand window (looks like explorer tree)
3) Type or copy the code below into the right hand code window.
4) Post into window and close the VBE (File|Close)
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>VBAProject_Foglio1.htm</title>
<style type=text/css>
<!--
body {background-color: #ffffff; color: #000000; font-family: "Courier New"; font-size: 10pt}
.keyword {background-color: #ffffff; color: #000080}
.comment {background-color: #ffffff; color: #008000}
-->
</style>
</head>
<body>
<nobr>
<div> <span class="keyword">Private Sub</span> Worksheet_SelectionChange(<span class="keyword">ByVal</span> Target <span class="keyword">As</span> Range)</div>
<div> <span class="keyword">Dim</span> MyCellAddr <span class="keyword">As String</span>, DifferentPartAddr <span class="keyword">As String</span></div>
<div> </div>
<div> <span class="comment">'Insert the address of the cell you want to select (I suppose A1)</span></div>
<div>MyCellAddr = "$A$1"</div>
<div> <span class="comment">'Insert the address of the range you want to highlight (suppose B2:D4)</span></div>
<div>DifferentPartAddr = "B2:D4"</div>
<div> </div>
<div> <span class="keyword">If</span> Target.Address = MyCellAddr <span class="keyword">Then</span></div>
<div> <span class="comment">'MyCell selected: apply format</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = 35</div>
<div> <span class="keyword">Else</span></div>
<div> Range(DifferentPartAddr).Interior.ColorIndex = xlNone</div>
<div> <span class="keyword">End If</span></div>
<div> <span class="keyword">End Sub</span></div>
</nobr>
</body></html>
Ciao