Convertir una hoja de Excel a pdf y que se envíe como archivo adjunto por email

Su apoyo para generar una macro que convierta solo la hoja activa de un libro de Excel a pdf y que esta a su vez se envíe como archivo adjunto por email