Excel VBA find and replace

Hi all, im fairly new to VBA in excel. Can anyone tell me if there is a more efficient way of doing this?

I have a listbox with subjects in and when the subject is selected it runs this.

Please Login or Register  to view this content.

And then modules that look like this.

Please Login or Register  to view this content.