Solved: Setting Array for Two Sheets- Almost there

[YellowLabPro]

I want to run the trim function on two sheets.
The following code does not make it to the second sheet, it gets to the next Ai, "ArrayInteger", but that does not tell it to perform the trim on the second sheet, rather it starts over again and runs on the first sheet.

My variable counters are also a problem, they contain the value of the last variable count, "which is to be expected". What is the best way to reset them, place another "i = 4" after the Next i, and place this line a second time after "Next j"-
lrwSource = .Cells(Rows.Count, 1).End(xlUp).Row

Sub RemoveSpaces()
Dim Ws As Worksheet
Dim i As Integer, j As Integer, lrwSource As Long, Ai As Long
Dim ArrayWs
ArrayWs = Array("TGFF", "TGVB")
Set Ws = Worksheets(ArrayWs(Ai))
With Ws
For Ai = LBound(ArrayWs) To UBound(ArrayWs)
lrwSource = .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 4
For i = 4 To lrwSource
.Cells(i, j).Value = WorksheetFunction.Trim(.Cells(i, j).Value)
Next i
Next j
Next Ai
End With
MsgBox "Done"
End Sub

[rory]

You're not changing ws - try:

Sub RemoveSpaces()
Dim Ws As Worksheet
Dim i As Integer, j As Integer, lrwSource As Long, Ai As Long
Dim ArrayWs
ArrayWs = Array("TGFF", "TGVB")
For Ai = LBound(ArrayWs) To UBound(ArrayWs)
Set Ws = Worksheets(ArrayWs(Ai))
With Ws
lrwSource = .Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To 4
For i = 4 To lrwSource
.Cells(i, j).Value = WorksheetFunction.Trim(.Cells(i, j).Value)
Next i
Next j
End With
Next Ai
MsgBox "Done"
End Sub

[YellowLabPro]

Thanks Dude!
I see it now..... hindsight 20/20
It would be better though if you guys would get me a copy of the VBA that runs that special code, the ones w/ the .cells(iwish1, iwish2).value

[rory]

You just need a copy of Office Super Professional Pro Plus Ultimate Teachers Edition, which has all the answers...

[YellowLabPro]

I knew you guys were holding out on me. Okay, I'll bite, where do I get this and how much..... HogWarts School probably- Huh?... Only problem.... I still have the status of a Muggle

[rory]

From the Microsoft shop of course...

[YellowLabPro]

So all I have to do is call them up and they will know what I am talking about and I can get one... what's the catch?

[rory]

It's online only. All you have to do is log in with the secret password and away you go. :)

[YellowLabPro]

Sounds to me like you might be pulling my leg on this one.... I have searched for this password for hours... and nothing