Update Cells with no Screen Flicker

Sub NoScreenFlicker()<br>
‘This will add string values to columns A and B without screen flicker<br>
    Dim rCellValue As Range<br>
    Dim rCellValue2 As Range<br>
    Application.ScreenUpdating = False<br>
        For Each rCellValue In Range("A1:A10000")<br>
            rCellValue.Select<br>
            rCellValue.Value = "Add Value Here"<br>
        Next rCellValue<br>
        For Each rCellValue2 In Range("B1:B10000")<br>
            rCellValue2.Select<br>
            rCellValue2.Value = "Add Value 2 Here"<br>
        Next rCellValue2<br>
    Application.ScreenUpdating = True<br>
End Sub

Leave a Reply