check for only alphanumric

Question

i want to test all cells in column for only alphanumric values (i.e HJ334, AA334, 3345GG) if not error msg box my code is below would this work is there better way