Better Coding

I have the folloing code in a Workbook that opens another Excel worksbook called Wesson. The macro simply does alot of formatting the Wesson workbook.

The macro works fine but I want to know if their is a more efficient way to code the macro without using the:
Sheets("wesson_summary").Range...etc

I currently have about 25 workbooks I will be formatting similar to this, but before I go through and do this I wanted to know if their is a way to be more efficient with the coding.

Thanks,

John

AttachmentSize
wesson Summary.xlsx10.11 KB