Insert column after

[Fazila]

How can I alter this code so it inserts a column after columns containing Teacher Judgement not before?

Sub inscols2()

Dim A As Range
Dim s As String


Set A = Rows(2).Find(what:="Teacher Judgement", after:=Cells(2, 1), LookIn:=xlValues, lookat:=xlPart, _
                     SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False)


If Not A Is Nothing Then
    s = A.Address
    Do
        A.Resize(, 1).EntireColumn.Insert
         s = Range(s).Offset(, 1).Address
        Set A = Rows(2).FindNext(A)
    Loop Until A.Address = s
End If


End Sub

Thanks

 

[Fluff]

Try changing Resize to Offset

 

[Fazila]

Thanks Fluff it is now inserting columns after, however, the loop doesn't seem to end it keeps adding columns. I only need one column to be entered after each column that contains "Teacher Judgement".

Thanks

 

[Fluff]

How about

Sub inscols2()
   Dim A As Range
   Dim s As Long, i As Long

   s = Application.CountIf(Rows(2), "Teacher Judgement")
   Set A = Range("A2")
   For i = 1 To s
      Set A = Rows(2).Find(what:="Teacher Judgement", after:=A, lookIn:=xlValues, lookat:=xlPart, _
                     SearchDirection:=xlPrevious, MatchCase:=False, SearchFormat:=False)
      A.Offset(, 1).EntireColumn.Insert
   Next i
End Sub

 

[Fazila]

That worked perfectly thanks Fluff!

 

[Fluff]

You're welcome & thanks for the feedback