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