Excel Pop Out cell contents for entire worksheet

[QTQ28]

Hi Friends! I'm not a brainy code person, so I need help here fromt his amazing group of code wizards. I'm working on a spreadsheet where I have the text wrapped, but being that some cells have a lot of text, and I want to keep the cells small for visual appeal, I really want to find a way for the text of the cell to pop out for easy reading which i click on it. Can someone help please?

 

[Joe4]

Welcome to the Board!

You could use VBA to return the entire contents of the cell to a Message Box. It would then show it in its entirety, and then would need to click on the OK message box in order to close it.
You could limit it to run on just a certain range. For example, if we only wanted to apply this to column G, our code would look like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'   Only run if a single cell is selected
    If Target.CountLarge > 1 Then Exit Sub

'   Only run if a cell in column G is selected
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        MsgBox Target.Value
    End If
    
End Sub

In order for this to work, it MUST be placed in the proper spot in the VBA Editor. The easiest way to ensure this is to go to the sheet you want to apply this code to, right-click on the Sheet tab name at the bottom of the screen, select "View Code" and paste the VBA code above into the VB Editor window that pops up. Then as long as you have VBA enabled on this workbook, this code will run automatically when you select any cell in column G.

 

[QTQ28]

Welcome to the Board!

You could use VBA to return the entire contents of the cell to a Message Box. It would then show it in its entirety, and then would need to click on the OK message box in order to close it.
You could limit it to run on just a certain range. For example, if we only wanted to apply this to column G, our code would look like this:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'   Only run if a single cell is selected
    If Target.CountLarge > 1 Then Exit Sub

'   Only run if a cell in column G is selected
    If Not Intersect(Target, Range("G:G")) Is Nothing Then
        MsgBox Target.Value
    End If
   
End Sub

In order for this to work, it MUST be placed in the proper spot in the VBA Editor. The easiest way to ensure this is to go to the sheet you want to apply this code to, right-click on the Sheet tab name at the bottom of the screen, select "View Code" and paste the VBA code above into the VB Editor window that pops up. Then as long as you have VBA enabled on this workbook, this code will run automatically when you select any cell in column G.

Oh thank you! what if i want it for columns C - K?

 

[Joe4]

Oh thank you! what if i want it for columns C - K?

Simply change:

Range("G:G")

to

Range("C:K")

 

[QTQ28]

Simply change:

Range("G:G")

to

Range("C:K")

OH EMM GOODNESSSSSSS YOU DID IT!! THANK YOU SO MUCH!!!

 

[Joe4]

You are welcome.
Glad I was able to help!