Thread: Create new excel worksheet
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Soo Cheon Jheong[_3_] Soo Cheon Jheong[_3_] is offline
external usenet poster
  
Posts: 4
Default Create new excel worksheet
Lillian,

Sub TEST()

Sheets.Add After:=ActiveSheet

With Range("A1:A999")
.Formula = "=TEXT(ROW(),""'000"")&""000"""
.Value = .Value
End With

End Sub



--
Regards,
Soo Cheon Jheong

_ _
^вп^
--



Reply With QuoteReply With Quote