Excel Tutorial
20120814
Private Sub Workbook_NewSheet & PasteSpecial
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sheet1.Range("A1:E1").Copy Sh.Range("A1")
Sheet1.Range("A1:E20").Copy
Sh.Range("A1:E20").PasteSpecial Paste:=xlPasteFormats
End Sub
No comments:
Post a Comment
Newer Post
Older Post
Home
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment