I'm up for the easiest solution here...



Set wksTarget = Sheets(Format(Date(),"mmm")) 'Jan,Feb...

OR

Set wksTarget = Sheets(Format(Date(),"mmmm")) 'full name



..depending on what you prefer.



So if the sheet name is Feb 14 this would work with the space after "mmm "?

Set wksTarget = Sheets(Format(Date, "mmm " & 14)) 'Feb 14

or

Set wksTarget = Sheets(Format(Date, "mmm" & " " & 14)) 'Feb 14

Howard