Need a shorter VBA code: Hide and unhide sheets based on presence of name in list

Image Verification:

Please enter the six letters or digits that appear in the image opposite.

Recipient Name:

Recipient Email Address:

Email Subject:

Message:

Send Page to a Friend