View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
OJ[_2_] OJ[_2_] is offline
external usenet poster
 
Posts: 111
Default formatting a worksheet

Seems plausible enough...how about a Worksheet_Change event?
1. Create your template on a seperate sheet and set its Hidden property
to xlSheetVeryHidden
2. Create a WorkSheet_Change event behind Sheet A; something like
this...

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Application.ScreenUpdating = False
With Sheet3
.Visible = xlSheetVisible
.Copy after:=Sheets(1)
.Visible = xlSheetVeryHidden
End With
ActiveSheet.Name = "Template" & (ThisWorkbook.Sheets.Count - 1)
Me.Activate
Application.ScreenUpdating = True
End If
End Sub

Should work...

Hth,
OJ