I guess the point is, if you're stepping through the code, you want/need to see what effect it is having on the worksheets.

I have searched the forum and tried everything to resolve this issue. Select as I heard this can set Screen Updating to True.

I have a command button on Userform1 that calls the procedure below. I have placed the Screen Updating command all throughout (Overkill Im sure) and debugged it and the immediate window always shows it set to False. The procedure calls a function "Is Numeric" and I have put the Screen Updating False at the beginning and True at the end of the function. Sub importtag() Dim filename As String Dim path As String Dim ibasemodel As String Dim Ser Num As String Dim Tag Num As String Dim IBasenum As String Dim Cust Name As String Dim Address1 As String Dim Address2 As String Dim Address3 As String Dim Partnernum As String Dim mfgdate As String Dim District As String Dim Zip Code As String Dim Zipcodeplus As String Dim lastrow As Long Dim Options As Variant Dim Quantity As Variant Dim i As Long Dim location As String Dim location1 As String Dim location2 As String Dim State As String Dim onecontrol As Object Dim percentadj As String Dim tagfind As String Dim lastrow1 As Long Dim c As Range Dim tryagain As String Dim wbook As Workbook Dim rng As Range Dim rng1 As Range Dim loc1 As String 'calc to manual to try and stop screen flashing Application.

Controls Select Case Type Name(onecontrol) Case "Check Box" End Select Next onecontrol Userform1.

Ignore Remote Requests = True 'Clear certain entries in userform For Each onecontrol In Userform1.

So every time when I select any cell in that worksheet the screen flickers. Sometimes me too experienced that with Worksheet Events but adding that screenupdating = false code made it to flicker even more with the Worksheet Change Event.

So I just stopped using screenupdating = false with worksheet events.

You just have to set the range you have defined to the place where the text is to be inserted. Collapse 0 Exit Do 'If you only want to process the first instance Loop End With Doc. Thank you for the progress indicator code and the tip on how to do this better and, I am always keen to learn new things if it will help me in life.

The following code has been adjusted to use that progress bar. It is neither necessary nor desirable to write a text string to the clipboard in order to write it to the document. As you will no doubt gathered I am a novice at VBA and this attempt was just trying to emulate what I would do manually.

Sub Insert Text() Dim Doc As Document, str Text To Insert As String, str Text To Find As String Dim i As Long, doc To Open As File Dialog, s Hght As Single Dim rng To Search As Word.