For Each wn In ActiveWorkbook.Windows
If Not wn.ActiveCell Is Nothing Then
Set acell = wn.ActiveCell
MsgBox acell.Address & vbCr & _
wn.RangeSelection.Address
Exit For
End If
Next
Obviously if you know an embedded chart item is selected simply
ActiveWorkbook.Windows(2).ActiveCell
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.