I am making the assumption 01J would be a worksheet.

Dim sh as Worksheet
On error resume next
set sh = Worksheets("01J")
On Error goto 0
if sh is nothing then
worksheets.Add(After:=Worksheets(worksheets.count) ).Name ="01J"
set sh = worksheets("01J")
End if

--
Regards,
Tom Ogilvy

"LoloSoft" wrote in message
...
Hi,

i'm looking for a way to know if a sheet exist with the name (ex : "01J")
if it doesn't exist , i have to create it ...

thanks for any help.
------
Laurent.