New to VBA need help with simplifying code.

I am new to VBA and have written a code to basically go through a column of data and based on the contents fill another column with abbreviations. I was wondering if there was a simpler method of doing this same task. Also, on the last line I filled in the values using the offset function, but I would really prefer to have it set to column W; I just didn't know how to make it cycle through in that way. Any help or suggestions would be appreciated. Thank you.

Please Login or Register  to view this content.

Thank you for the quick response. That worked great.