If any cell in certain column selected macro

[curleyy]

I'm trying to run a macro or function so that if any cell in a certain column is selected a message will appear in a different cell.

So: If cell A6 is selected, Cell A1 will say: A6 selected
If B10 is selected, cell A1 will say: B10 selected

 

[Andrew Poulsom]

Exactly what range do you want the macro to apply to?

 

[curleyy]

A2:O1000

Each column contains different information. This information is being populated by a group of people, and so I need instructions to appear in cell A1 outlining the information expected in the cells of each column.

Exactly what range do you want the macro to apply to?

 

[Andrew Poulsom]

Try this in the module for the worksheet:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Application.Intersect(Target, Range("A2:O1000")) Is Nothing Then
        Range("A1").Value = Target.Address(False, False) & " selected"
    Else
        Range("A1").ClearContents
    End If
End Sub

 

[curleyy]

I'm afraid this hasn't worked.

Also, to complicate things, I was just giving an example of the instruction above. It won't mention the cell, it will be more like: 'enter *** here'. *** being different depending on what column the person is working in.

 

[Andrew Poulsom]

In what way hasn't it worked. It worked for me when I tested it. Where have you put the VBA code I posted?

 

[curleyy]

When I click on the cells in column A, no instruction shows up in cell A1. I both integrated it into the macro I already have and made a seperate macro to no avail

 

[Andrew Poulsom]

Where did you put the code I posted? It needs to go in the module for the worksheet.