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 |
Code help
You don't need the .Range, try
Set TargetValue = Activecell John |
Code help
That didn't do it???
-- Thanks Shawn " wrote: You don't need the .Range, try Set TargetValue = Activecell John |
Code help
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 |
All times are GMT +1. The time now is 09:46 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com