Doescounts for worksheetnames ? It's because I tried the following :option compare text
The current month is december and not December. Could be nothing (edited : it's nothing, don't bother - just tested it) but it's because you hardcoded it in your manual copy routine ?Sub test() Dim curMonth As String curMonth = MonthName(Month(Now()), False) End Sub
Charlize