Return the value of a manually highlighted cell across a column

[excelhelp_hg]

The request is:
1. Identify a cell that is manually highlighted (no conditional formatting used) in each column
2. Return the value of that highlighted cell in another cell
3. If no cell is highlighted in a column, then return "blank" value

Please see attached example on desired output.
In the attached example:
1. Identify that, Cell A1, for example in Column A is highlighted (I manually highlighted it, so no conditional formatting was used)
2. return the value of that highlighted cell in another cell (A13) in this example
3. Repeat this for columns B through H and return the highlighted cell value in cells B13 through H13
4. Since Columns G & H don't have a highlighted cell, return blank values in G13 & H13.

Willing to write Macros or custom functions for this. Thanks for the help!

 

[James006]

Hi,
You can test following event macro

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.CountLarge > 1 Then Exit Sub
Cells(13, Target.Row).Value = Target.Value
Cancel = True
End Sub

 

[excelhelp_hg]

Thank you so much for the prompt follow up. Couple questions:
1. Per attached screenshot, I don't see this macro listed for "sheet82" when I add it and save it. I also have the excel file open
2. Per the other screenshot, I do have other "don't care" data in those columns (cells A17-C17) that i don't want to add to the Column based logic for highlighted cells. In other words, our range for this data on a per column basis is A1-H9. How do we incorporate a specific range in this formula?

 

[Peter_SSs]

Since you only have a small range to check, see if this does what you want.

Sub CheckCellsForColour()
  Dim c As Range
  
  For Each c In Range("A1:H9")
    If Not c.Interior.ColorIndex = xlNone Then Cells(13, c.Column).Value = c.Value
  Next c
End Sub