copy only format and values and paste to other work sheet

[ikshanu]

hi,

in the given macro , can possible to copy only format and values from active work sheet and paste it to onother work book

Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet

Set wkbSource = ActiveWorkbook
Set wkbDest = Workbooks.Open("d:\test\workbook1.xlsm")
Set shtToCopy = wkbSource.Sheets("sheet2")
shtToCopy.Copy wkbDest.Sheets(1)
ActiveSheet.Name = Format(Now(), "dd-mm-yy")
ActiveWorkbook.Save
ActiveWorkbook.Close