To avoid error if C1 is blank
[VBA] Set rng = Intersect(Range("C:C"), ActiveSheet.UsedRange).Offset(1)[/VBA]
To avoid error if C1 is blank
[VBA] Set rng = Intersect(Range("C:C"), ActiveSheet.UsedRange).Offset(1)[/VBA]
MVP (Excel 2008-2010)
Post a workbook with sample data and layout if you want a quicker solution.
To help indent your macros try Smart Indent
Please remember to mark threads 'Solved'
Posting Permissions
Reply With Quote