chem101
10-25-2010, 07:14 AM
Hello Everyone,
I need your help. I'm using code to copy a small .jpeg from one worsheet to another within the same workbook. There are about 30 If then conditions used to determine where the pic will be pasted. As copying is done the screen flickers. Below is the first part of the code I'm using. Can you help me modify it so the screen doesn't flicker when the pic is being copied.
Thank you in advance for any help you can provide!!
Sub CopyWHMSTRPic()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.ScreenUpdating = False
If Range("InputbxS").Value = "RS" And Range("InputJ").Value = "Tp3" Then
ws.Range("i33:ab45").CopyPicture
Worksheets("WH Master").Activate
Worksheets("WH Master").Range("c22").Activate
Worksheets("WH Master").Paste
End If
Application.ScreenUpdating = True
wksNewOrder.Activate
Range("A1").Select
Range("OrderNumber").Select
I need your help. I'm using code to copy a small .jpeg from one worsheet to another within the same workbook. There are about 30 If then conditions used to determine where the pic will be pasted. As copying is done the screen flickers. Below is the first part of the code I'm using. Can you help me modify it so the screen doesn't flicker when the pic is being copied.
Thank you in advance for any help you can provide!!
Sub CopyWHMSTRPic()
Dim ws As Worksheet
Set ws = ActiveSheet
Application.ScreenUpdating = False
If Range("InputbxS").Value = "RS" And Range("InputJ").Value = "Tp3" Then
ws.Range("i33:ab45").CopyPicture
Worksheets("WH Master").Activate
Worksheets("WH Master").Range("c22").Activate
Worksheets("WH Master").Paste
End If
Application.ScreenUpdating = True
wksNewOrder.Activate
Range("A1").Select
Range("OrderNumber").Select