i have following code sub cleancat() dim integer = 1 50 columns("a").replace what:="cat" & i, replacement:="category" & i, lookat:=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, replaceformat:=false columns("a").replace what:="cat " & i, replacement:="category" & i, lookat:=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, replaceformat:=false columns("a").replace what:="category " & i, replacement:="category" & i, lookat:=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, replaceformat:=false columns("a").replace what:="category" & i, replacement:="category" & i, lookat:=xlpart, searchorder:=xlbyrows, matchcase:=false, searchformat:=false, replaceformat:=false columns("a").replace what:="cat" & i, replacement:="catego...