Many thanks for your help.

One slight problem, when I run the amended code I get the following

"Run-Time error code 13"
type mismatch

on this part of the code

Else: Set ws = Worksheets(Me.cboMonths).Value
Cheers
Toonies