Turning off visuals when I use a macro button.

I am new to VBA so on my last project I used a macro to get parts of the code I am using. However, the code causes the screen to flicker back and forth between worksheets as some copying and pasting takes place. Is it possible to turn this flickering off and just have the code "do its thing?"

Below is some of the code I used.

    Selection.Copy
    Sheets("Template").Select
    Range("G2").Select
    ActiveSheet.Paste
    
    Sheets("Load").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Template").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.Paste
    
    'Copy node and paste.
    Sheets("Load").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Template").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveSheet.Paste

EDIT: I should mention I am using a button to initiate my code.

You can turn screen updating off but you would also need to get rid of all your select commands as they really aren't needed and avoiding them will make your code run a lot more smoothly. Can you upload a sample workbook or explain more clearly what the code is doing and can show you how it can be re-written.

Dom

Nimrod,

Re Selection I have quite a few bits of code in my personal.xls that run on the selected range so I wouldn't say that should be avoided if it's suitable.

Dom

I agree learning to avoid select it is one of the revelations of learning VBA!

Got to go now so can hopefully can leave the OP in your capable hands :-)

Dom

I have 4 worksheets that I deal with in the code. "FORMULAS, INPUTS, OUTPUTS, LOAD."

In "LOAD" I take 3 user defined specifications (3 columns) and allow the user to make as many rows as they would like. Currently there are restrictions but I'm not ready to deal with them yet. As of now the code works.

The "FORMULAS" worksheet takes one row at a time from "LOAD" and changes all necessary data. Then I copy that data from "FORMULAS" to "INPUTS" or "OUTPUTS."

Sub Rectangle_Click()
Sheets("Load").Select
Range("A2").Select


Do

    If ActiveCell.Offset(0, 1).Value = "xxxxx" Then
    
        Call Copy
        
    End If

   ' Sheets("Load").Select
   ' ActiveCell.Offset(1, -3).Select
    
Loop Until IsEmpty(ActiveCell)


End Sub

Sub Copy()
    
    Selection.Copy
    Sheets("Formulas").Select
    Range("G2").Select
    ActiveSheet.Paste
    
    Sheets("Load").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Formulas").Select
    ActiveCell.Offset(0, 2).Range("A1").Select
    ActiveSheet.Paste
    
    Sheets("Load").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Formulas").Select
    ActiveCell.Offset(0, 1).Range("A1").Select
    ActiveSheet.Paste
    

    Range("A4:F61").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Master_Inputs").Select
    '''''''''''''''''''''''''''''''''''''''''''
    Do
        If IsEmpty(ActiveCell) = False Then
            
            ActiveCell.Offset(1, 0).Select
            
        End If
        
    Loop Until IsEmpty(ActiveCell) = True
    '''''''''''''''''''''''''''''''''''''''''''
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("Formulas").Select
   Range("A63:F79").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Master_Outputs").Select
    '''''''''''''''''''''''''''''''''''''''''''
    Do
        If IsEmpty(ActiveCell) = False Then
            
            ActiveCell.Offset(1, 0).Select
            
        End If
        
    Loop Until IsEmpty(ActiveCell) = True
    '''''''''''''''''''''''''''''''''''''''''''
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("Load").Select
    ActiveCell.Offset(1, -3).Select

End Sub

EDIT: The point of my program is taking a little bit of user information and generating a specific sheet that manually would take hours to generate.

Hello Brad:
I've notice you looping with select and thought this demo might help. To try this out take a fresh sheet and put numbers in column A and then run macro. Notice the speed and no flicker.

The two things to focus on in , in your first learning VBA , is to refer to books, sheets, cells without select .. and looping.

Public Sub LoopDemo()
   Dim iRow As Integer

   'Find Where data ends
   LastRow = Cells(65536, "A").End(xlUp).Row
   
   'Loop
   For iRow = 1 To LastRow
      Cells(iRow, "B").Value = Cells(iRow, "A").Value * 2
   Next iRow
   
End Sub

LastRow = Cells(65536, "A").End(xlUp).Row

Start at Row 65536 Column "A" and go "up" until you get to data ... then take the "Row" number and assign it to the Variable "LastRow". Basically this is the same as type "End" and "up arrow" on your keyboard.

iRow was the name I gave the Variable . You want to give variables name that make sense ... since the variable indicates a changing Row number I called it "Row" and since I had declared it a variable of type Integer I gave started it with a "i" ...BUT I could have called the variable xDonaldDuck and it still would have worked ... but then it wouldn't be as readable.

BY-THE-WAY
LastRow = Cells(65536, "A").End(xlUp).Row would be for active sheet while LastRow = sheets("Sheet1").Cells(65536, "A").End(xlUp).Row would be for the sheet named "Sheet1"..... when a specific sheet is not indicated it is assumed you mean the activesheet.

Best to use Rows.Count rather than 65536 when determining the last row like that to take into account versions of Excel post 2003.

Dom