Insert Excel Sheeet using VBA

[JP SIngh]

Does someone know how to insert a worksheet into a workbook using VBA.

I need to insert a sheet called "Duplicate" on the fly is does not already
exist.

Does anyone know how?

tahnks & regards
J

 

[Tom Ogilvy]

Dim sh as Worksheet
On Error Resume Next
set sh = Worksheets("Duplicate")
On Error goto 0
if sh is nothing then
set sh = worksheets.Add(After:=Worksheets(worksheets.count))
End if

Sh.Activate

 

[Soo Cheon Jheong]

Hi,

Option Explicit
Sub TEST()

Dim SHT As Object

On Error Resume Next
Set SHT = Sheets("Duplicate")
On Error GoTo 0

If SHT Is Nothing Then
Set SHT = Worksheets.Add(After:=Worksheets(Worksheets.Count))
SHT.Name = "Duplicate"
End If

SHT.Activate

End Sub


--
Regards,
Soo Cheon Jheong
_ _
^¢¯^
--