The simplest way, assuming each of the extra sheets is to be processed the same way as your existing one, it to add however many OR conditions you need to this line:
If LCase(Left(sh.Name, 10)) = "planting a" Then
For example:
If LCase(Left(sh.Name, 10)) = "planting a" Or LCase(Left(sh.Name, 10)) = "planting b" Then

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab below the Reply box.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]