Macro to Create Sheet & Duplicate Sheet
 

Hi,
could anyone tell me how - in a VB macro - to :
1) Create a sheet
In a Workbook, I have one Sheet called "Sheet1"
If on "Sheet1" Cell A1 = TOTO a macro will *create* a sheet calle
TOTO

2) Duplicate a sheet
If on "Sheet1" Cell A1 = TITI a macro will *duplicate* "sheet 1"

Regards

Herv

--
Herve_Ro
-----------------------------------------------------------------------
Herve_Rob's Profile: http://www.excelforum.com/member.php...fo&userid=3520
View this thread: http://www.excelforum.com/showthread.php?threadid=54968

Macro to Create Sheet & Duplicate Sheet
 

Sub Macro()

If Sheets("Sheet1").Range("A1").Value = "TOTO" Then

Sheets.Add
With ActiveSheet
Name = "TOTO"
End With

Sheets("Sheet1").Select

End If

If Sheets("Sheet1").Range("A1").Value = "TITI" Then

Sheets("Sheet1").Select
Sheets("Sheet1").Copy Befo=Sheets(2)

End If

End Sub


--
Bearacade


------------------------------------------------------------------------
Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
View this thread: http://www.excelforum.com/showthread...hreadid=549682