New workSheet adding

ks1102 · March 10th, 2009, 06:23 AM

Dear all

I wanted a VB / Macros to create a new worksheet in my workbook thatâs been copy from the Sheet1 all and name = Sheet1 Range (A2), Does it workable?
Your advice and help I highly appreciate.

Hope all have a Good Day

Shasur · March 10th, 2009, 06:37 AM

You can try this VBA code:

Code:

Sub CopySheet()
Dim oWS1 As Worksheet
Dim oWSNew As Worksheet
Set oWS1 = ActiveWorkbook.Sheets(1)
oWS1.Copy ActiveWorkbook.Sheets(1)
Set oWSNew = ActiveWorkbook.Sheets(1)
oWSNew.name = oWS1.Range("A2")
End Sub

Cheers
Shasur

ks1102 · March 10th, 2009, 07:29 AM

Work perfectly ,

Thanks