Run a macro on the cells a user has highlighted

[Sheila Yau]

Hi All,

I am trying to adapt this macro so that instead of specifiying the Range("A1:B20") in the macro, it will perform the task on the cells a user has highlighted in the excel worksheet.
This is so they can perform the macro in any cells/worksheets in a workbook.

Sub f2enter()
Dim c As Range
For Each c In Range("A1:B20").Cells
c.Select
SendKeys "{F2}", True
SendKeys "{ENTER}", True
Next
End Sub

Thanks

Sheila

 

[Yard]

Sub f2enter()
Dim c As Range
 
For Each c In Selection
   SendKeys "{F2}", True
   SendKeys "{ENTER}", True
Next c
 
End Sub

Out of interest, what do you aim to achieve by running this code?

edit: you probably know that Excel must be the active application when you run this, i.e. you can't run it from the VB Editor. There's probably a way to test for that.

You might want to add another test to ensure the Selection is a range, rather than an object or a Pivot Table.....

 

[Sheila Yau]

It's to deal with an excel bug we have. The excel workbooks we have (they are quite large and have to be set on manual calc) have linked cell references within the workbook.
When data has been refreshed the links don't always update after F9, a user has to go through each cell and hit F2 + enter.

 

[Yard]

What about updating the links via the Edit Links dialog box??

 

[Sheila Yau]

Thanks for the code & suggestions - it's working OK for me now.