Macrochanging(with sample)

[naas]

Hi Ron,

This is one.

Hopes it is enough.

Regards,

Naas



Sub adddelivery()
'
' adddelivery Macro
' Macro recorded 2003/04/30 by Naas Vermaak
'

'
ActiveSheet.Unprotect
Sheets("FIXED INPUTS").Select
Range("A49:J49").Select
Selection.Copy
Sheets("DELIVERIES").Select
Range("B27").Select
Selection.insert Shift:=xlDown
Range("B46:K46").Select
Selection.Delete Shift:=xlUp
Range("C27").Select

End Sub

 

[Don Guillett]

Try removing the selections

ActiveSheet.Unprotect
Sheets("FIXED INPUTS").Range("A49:J49").Copy
Sheets("DELIVERIES").Range("B27").insert Shift:=xlDown
Range("B46:K46").Delete Shift:=xlUp



--
Don Guillett
SalesAid Software
[email protected]

Hi Ron,

This is one.

Hopes it is enough.

Regards,

Naas



Sub adddelivery()
'
' adddelivery Macro
' Macro recorded 2003/04/30 by Naas Vermaak
'

'
ActiveSheet.Unprotect
Sheets("FIXED INPUTS").Select
Range("A49:J49").Select
Selection.Copy
Sheets("DELIVERIES").Select
Range("B27").Select
Selection.insert Shift:=xlDown
Range("B46:K46").Select
Selection.Delete Shift:=xlUp
Range("C27").Select

End Sub