Tweak On Part Of Code

[Dazzawm]

I have this part of code within a macro that creates a new sheet. What needs adding to it so that it is formatted as text so that when data is put on this sheet it does not lose leading zeros?

Thanks

Set targetSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))

 

[steve the fish]

You coan do that but then of course formulas stay as text too. You may wish to be more specific on which cells need to be text.

Set targetSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
targetSheet.Cells.NumberFormat = "@"

 

[Dazzawm]

Thanks, that works as there will be no formulae.