What is wrong with the code below (<<<indicates error)

Worksheets("UniqueValues").Visible = True
Worksheets("UniqueValues").Select

Dim TargetValue As Range
Set TargetValue = Sheets("UniqueValues").Range("A1")

TargetValue.Select

Do Until ActiveCell.Value = ""

ActiveCell.Copy Worksheets("Name SD").Range("C2")
MasterFormulas.MasterFormula
Worksheets("Report").PrintOut Copies:=1, Collate:=True
TargetValue.Offset(1, 0).Select
Set TargetValue = ActiveCell.Range <<<<error here

Loop

' Worsheets("UniqueValues").Visible = False

End Sub


--
Thanks
Shawn

You don't need the .Range, try

Set TargetValue = Activecell

John

That didn't do it???
--
Thanks
Shawn


" wrote:

You don't need the .Range, try

Set TargetValue = Activecell

John

Shawn,

Did you try Activecell.Value?


"Shawn" wrote in message
...
That didn't do it???
--
Thanks
Shawn


" wrote:

You don't need the .Range, try

Set TargetValue = Activecell

John