I am repeatedly performing a task to format a couple of columns to remove leading zeros.

Currently I am running 'Text to Columns' on each individual field and selecting Delimited, Tab and General, which will lose the leading zeros.

I would like to automate this however using VBA, however I am struggling with the code.

I only want to perform this output on two columns;

SORTSEQ
BAGNO

I would really appreciate some help.