Manipulating Data in a row

Hello,

How do I change data in a column via VBA. Here's what I am referring to: In
column A I have data that looks like this
0001
0002
0003

I need to take off the leading 0 so it looks like this:
001
002
003

Any help would be appreciated !

Developer

one way.

Sub takezero()

Dim cell As Range
For Each cell In Range("A1:A100")
cell.Value = Right(cell.Value, Len(cell.Value) - 1)
Next cell



End Sub

for each cell in selection
cell.Value = "'" & Right(cell.Text,3)
Next

This assumes the zeros are not produced using a custom format.
If that is the case, just change the custom format.

--
Regards,
Tom Ogilvy


"Gsurfdude" <[email protected]> wrote in message
news:[email protected]...
> Hello,
>
> How do I change data in a column via VBA. Here's what I am referring to:
In
> column A I have data that looks like this
> 0001
> 0002
> 0003
>
> I need to take off the leading 0 so it looks like this:
> 001
> 002
> 003
>
> Any help would be appreciated !
>
> Developer

Tom:

Thanks. This worked fine and what was needed..

Thanx again

"Tom Ogilvy" wrote:

> for each cell in selection
> cell.Value = "'" & Right(cell.Text,3)
> Next
>
> This assumes the zeros are not produced using a custom format.
> If that is the case, just change the custom format.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Gsurfdude" <[email protected]> wrote in message
> news:[email protected]...
> > Hello,
> >
> > How do I change data in a column via VBA. Here's what I am referring to:
> In
> > column A I have data that looks like this
> > 0001
> > 0002
> > 0003
> >
> > I need to take off the leading 0 so it looks like this:
> > 001
> > 002
> > 003
> >
> > Any help would be appreciated !
> >
> > Developer
>
>
>