Is there some way that this can work with an array.
Text22(0) through Text22(11)
And can it do it on the first day of the month
Dim LB As Integer, UB As Integer
Dim i As Integer, sText As String
With text22(0)
LB = .LBound
UB = .UBound
sText = .Item(UB).Text
For i = UB To LB + 1 Step -1
.Item(i).Text = .Item(i - 1).Text
Next
.Item(LB).Text = sText
End With
Text22(0) through Text22(11)
And can it do it on the first day of the month
Dim LB As Integer, UB As Integer
Dim i As Integer, sText As String
With text22(0)
LB = .LBound
UB = .UBound
sText = .Item(UB).Text
For i = UB To LB + 1 Step -1
.Item(i).Text = .Item(i - 1).Text
Next
.Item(LB).Text = sText
End With
