Amazing !!!! My pulsating eyes thank you immensly, just what the option ordered



"DS NTE" wrote:

To avoid flickering:

Application.Screenupdating = False
Your code
Application.Screenupdating = True


hth
knut
"Alarmbloke" skrev i melding
...
Hello again,

I currently have a few macros which copy and paste data from one sheet to
another.

When the run you see the sheets flicking between each other as the macro
selects the active sheet, copies the selected range, then selects the
destination sheet pastes etc etc.

This all works as it should but is there a way of doing it in the
background
whilst the user just sees the main input sheet and not flicking pages.

This would seriously help with saving my eye sight

Messy(Macro) as below

Sub transfer()
'
' transfer Macro
'
'

'
Range("H11").Select
Selection.Copy
Sheets("Quote").Select
Range("B48:M48").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H12").Select
Selection.Copy
Sheets("Quote").Select
Range("B50:M50").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H13").Select
Selection.Copy
Sheets("Quote").Select
Range("B51:M51").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H14").Select
Selection.Copy
Sheets("Quote").Select
Range("B52:M52").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H15").Select
Selection.Copy
Sheets("Quote").Select
Range("B53:M53").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H16").Select
Selection.Copy
Sheets("Quote").Select
Range("B54:M54").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H17").Select
Selection.Copy
Sheets("Quote").Select
Range("B55:M55").Select
ActiveSheet.Paste
Sheets("Sheet1").Select
Range("H18").Select
Selection.Copy
Sheets("Quote").Select
Range("B56").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Sheets("Quote").Select
Range("N47:U47").Select

End Sub