G
gtton
Hi, when I use this program for a "forms" button, it works but when I
apply it to a command button, it fails. Would anyone have an idea why
and can help me out with a revised program for the command button to
work?
Here's the macro, it's a simple copy cells from one sheet and paste the
cells onto another sheet:
Sub Paste()
'
' Paste Macro
'
'
Sheets("Data").Select
Rows("322:328").Select
Selection.Copy
Sheets("3E Submittal Cover Sheet").Select
Rows("47:47").Select
ActiveSheet.DropDowns.Add(165.75, 4153.5, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4179, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4204.5, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4230, 135.75, 15.75).Select
ActiveSheet.Paste
Range("B54").Select
End Sub
apply it to a command button, it fails. Would anyone have an idea why
and can help me out with a revised program for the command button to
work?
Here's the macro, it's a simple copy cells from one sheet and paste the
cells onto another sheet:
Sub Paste()
'
' Paste Macro
'
'
Sheets("Data").Select
Rows("322:328").Select
Selection.Copy
Sheets("3E Submittal Cover Sheet").Select
Rows("47:47").Select
ActiveSheet.DropDowns.Add(165.75, 4153.5, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4179, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4204.5, 135.75, 15.75).Select
ActiveSheet.DropDowns.Add(165.75, 4230, 135.75, 15.75).Select
ActiveSheet.Paste
Range("B54").Select
End Sub