This sets the variable:

Sub dural()
Dim r As Range, v As Variant
Set r = Range("A1")
v = r.Value
End Sub

to set the cell, reverse the equation.
--
Gary''s Student - gsnu201003


"BigO" wrote:

how do i assign a value of a cell to a variable in a macro