Insert Column acting differently...

Steve Kunkel · #1 04-12-2022, 02:49 PM

Hi Folks,

This code used to work, but six months or so ago, it started doing the wrong thing...

The code:

Code:

Private Sub cmdMakeColLeft_Click()
 On Error GoTo ErrorHandler
  Dim Lstr As String, aCell As Cell
  Selection.InsertColumns
  Lstr = Me.txtColLeftText
  For Each aCell In Selection.Cells
    aCell.Range.Text = Lstr
  Next aCell
  Selection.MoveRight Unit:=wdCell
  Exit Sub
ErrorHandler:
    MsgBox "Only works from inside a table."
End Sub

A screenshot of some tables:

The code gets called from a GUI form. If I click on the top table, in the cell that has
Rater 1
Teacher
and enter "Teacher" into the txtColLeftText box, then when I execute the code, it is supposed to make the second table in the image.

A column is added to the left, and the text is enter (only) into the new column.

Lately, it has been erroneously replacing the text in the original column too (like the bottom table).

Any ideas how to fix this? Hopfully I explained the problem well.
-steve

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Want to Insert Column and add text into entire column.	Steve Kunkel	Word VBA	2	04-14-2021 07:22 PM
not able to insert a column	Zumba	Excel	1	10-06-2017 11:27 PM
Insert Table To Multi Column Page	mertdogan	Word Tables	2	08-03-2017 03:46 PM
How to automatically insert a line after a Column Break	YooperNC	Word	3	01-29-2015 07:16 AM
How to insert ne wline within a column	kesh	Excel	2	12-09-2011 09:38 AM