20120812

Workbook_NewSheet


Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheet1.UsedRange.Copy Sh.UsedRange
End Sub

No comments:

Post a Comment