So if A1 = 1
and B2 = hello world
then it should display hello world

Sub TestName()
With Worksheets("control").Range("A1")
MsgBox .Offset(.Value, 1)
End With
End Sub


--
Rob van Gelder - http://www.vangelder.co.nz/excel


"Edgar" wrote in message
...
Hi

I am trying to name the variable name1 by an offset of
range a1 by a1 rows and 1 column.

But the following codes not working can anyone help me?

TIa

Sub TestName()

drp = Range("A1")
name1 = Worksheets("control").Range(drp).Offset(drp, 1)
MsgBox (name)

End Sub