New to VBA need help with simplifying code.

[ntsun]

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.

[nathansav]

range("W" & rng.row).value =enclosure

You could copy M to W then do 7 find and replaces on column W.

They way you have it is the way i'd tackle it though, looking at it. You could turn calculation off and on again at the end, which may help.

[ntsun]

Thank you for the quick response. That worked great.