KC Cat
New Member
- Joined
- Dec 23, 2009
- Messages
- 48
Hello,
I used to use a "technique" to add a row at the top of a busy worksheet with a really large font to display the currently selected cell contents. For example, maybe on a vendor contact list sheet with many columns of data that I wanted to see all at once, which made finding and re-finding phone numbers while dialing very difficult. This top row (typically cell A1), would allow me to find a phone number, for example, with the data zoomed out (so the text is really small), but have A1 large enough to read easily when turning away from the monitor to dial the number, and turning back and see the number, etc. This "technique" eliminated zooming in and out. This is the code I used in the worksheet module:
This served me well, but with the advent of the ribbon, I am wondering if there is a way I could accomplish the same thing without "burning" the top row of ANY worksheet? What I envision is a text box that would constantly return the active cell value right on the ribbon (kind of like how the Font Size command box works to show the font size of the active cell - only I would like my text box to be 2/3 times as tall - want it really big to accomplish what I'm after).
Thanks in advance for any help!
KC Cat
I used to use a "technique" to add a row at the top of a busy worksheet with a really large font to display the currently selected cell contents. For example, maybe on a vendor contact list sheet with many columns of data that I wanted to see all at once, which made finding and re-finding phone numbers while dialing very difficult. This top row (typically cell A1), would allow me to find a phone number, for example, with the data zoomed out (so the text is really small), but have A1 large enough to read easily when turning away from the monitor to dial the number, and turning back and see the number, etc. This "technique" eliminated zooming in and out. This is the code I used in the worksheet module:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'place code on worksheet to replicate active cell value to specified cell (A1 in this case)
On Error GoTo ErrorHandler 'prevents nuisance error if user clicks the 'Select All' button
Range("A1").Value = Target.Value
ErrorHandler:
End Sub
This served me well, but with the advent of the ribbon, I am wondering if there is a way I could accomplish the same thing without "burning" the top row of ANY worksheet? What I envision is a text box that would constantly return the active cell value right on the ribbon (kind of like how the Font Size command box works to show the font size of the active cell - only I would like my text box to be 2/3 times as tall - want it really big to accomplish what I'm after).
Thanks in advance for any help!
KC Cat