用最后一行单元格值填充Excel MsgBox

Question

I am trying to yield a message box that a user can copy text from. This message box should contain two last row cell values as follows:

     -MsgBox-
'First Value: xxxx'
'Second Value: xxxx'

I have the following vba to find the last cell number:

Dim Lastrow As String
Lastrow = sumsht.Cells(Rows.Count, 1).End(xlUp).Row

I am wanting to output the last cell S and T values to a message box that a user can copy text from. The below is not correct, although it gives you an idea of what I am trying to do.

MsgBox.Range(("S" & Lastrow), ("T" & Lastrow))

EDIT: I should mention that my last 'T' cell contains a formula. I am trying to populate the box with the value the formula yields.

EDIT2: This is different to this question as I want the user to be able to actually select the text from the box itself. Also I couldn't decipher how to actually create the input box in my context (sorry, I am a beginner).

Answer 1

Try as follow:

Dim Lastrow As String
Lastrow = sumsht.Cells(Rows.Count, 1).End(xlUp).Row

Call MsgBox("First Value: " & sumsht.Range("S" & Lastrow) & vbNewLine & "Second Value: " & sumsht.Range("T" & Lastrow))