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
---------------
Jacob Skaria


"JanT" wrote:

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...