Speed up code

[Kavy]

Hello All, big favor to ask if anyone is willing to do it.
If I e-mail me code to anyone for one of my subs (in excel vb userform)
anyone willing to take a look at it and see if they can speed it up, if anyone has time on there hands?

If anyone responds , heh, thanks!

When I say speed up, i mean more effiant for the computer to run so it goes quicker, thanks!

 

[Boller]

What about :-

TTags=[A65536].End(xlUp)(2).Row

 

[Kavy]

Never seen that before, that will give me the last row that has data in it?
Can i specify that its the last row with date in the first collumn? (not needed just a safegaurd)

Hey thanks for your help by the way!

 

[Boller]

It will give you the row number of the cell immediately below the last cell with data in column A. (Which is what your code does - I think).

If you want the row number of the last cell with data in column A :-

TTags=[A65536].End(xlUp).Row

 

[Kavy]

Ya your right , I am using the first row without data, oops!
Any other suggestions?

Hey Kenneth, Sorry I didn't see your reply, thanks for that!

 

[Kavy]

I used TTags = wsl.[A65536].End(xlUp).Row

This is where wsl is my worksheet, I kinda guessed at this but it gave me the same result as my loop, is this correct?
Thanks