Current cell row column highlight

Hi Experts,
i am using below code for highlighting current selected cell row & column:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim strRange As String
strRange = Target.Cells.Address & "," & _
Target.Cells.EntireColumn.Address & "," & _
Target.Cells.EntireRow.Address
Range(strRange).Select
End Sub

But it has a problem i cant design any cell or row or column using fill color. when i make a fill color of any cell/row/column its automatically remove. But i wants to keep it. Please help me & also i attached my file.

Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html

take a look in the ThisWorkbook-module. There is a piece of code that clears the colorfill.