Code help
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
|