VBA to duplicate formatting/formula from one worksheet

[kjork]

Hello there, first time poster.

I have managed to use the following VBA to create multiple worksheets from a selection of names on a worksheet and then rename the new worksheets based on the selection of names, but I need the formatting/formula from the original worksheet to be on each newly created worksheet. This is the VBA is used:

Sub AddWorksheetsFromSelection()
Dim CurSheet As Worksheet
Dim Source As Range
Dim c As Range

Set CurSheet = ActiveSheet
Set Source = Selection.Cells
Application.ScreenUpdating = False

For Each c In Source
sName = Trim(c.Text)
If Len(sName) > 0 Then
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = sName
End If
Next c

CurSheet.Activate
Application.ScreenUpdating = True
End Sub


I tired simply inserting Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1") but it's not working. I may not be putting it in the right place?

[Artik]

Please edit your post and put VBA code in tags

Please Login or Register  to view this content.

Artik