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

Comments

Popular posts from this blog

50 Excel VBA Oral Interview Questions