In the code below I would like to change the statement to paste as values and format. When the macro runs now it pastes as values but not the format. Can anyone help?
Private Sub RunIt() If Code > 0 Then sheet1.Range("I14", "IV18").Select Selection.Copy Worksheets("Results").Activate ActiveSheet.Range("I" & Code * 5 + 9).Select End If ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False
Bookmarks