Sub CleanAll() Dim rng As Range For Each rng In Sheets("Sheet1").Range("A1:K1500").Cells 'adjust sheetname and range accordingly rng.Value = AlphaNumericOnly(rng.Value) Next End Sub
|ADD New Entries||7||16|
|excel cannot open the file because the file format or file extension is not valid||5||32|
|Simple Excel re-arrange data. (I can work in access too).||8||50|
|tabctrl with page click event||9||10|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
13 Experts available now in Live!