cell contents in a text/message box

  • Thread starter Thread starter JanT
  • Start date Start date
J

JanT

I would like to add the contents of a number of cells from a list into a
text/message box. The exact location of the cells in the list varies. For
example: if A1=10, then content in cells b10 and c10 should be displayed and
if A1=3 then content in cells b3 and c3 to be displayed, etc...
 
Try the below code

Sub Macro()

Dim intTemp As Integer
intTemp = Range("A1")
If IsNumeric(intTemp) Then _
MsgBox Range("B" & intTemp) & " " & Range("C" & intTemp)

End Sub

If this post helps click Yes
 
Back
Top