Sub DisableScreenUpdating()
Application.ScreenUpdating = False
End Sub
Sub EnableScreenUpdating()
Application.ScreenUpdating = True
End Sub
I see
You can try disabling screen updating... in my tests:
with screen updating on = 0.03 seconds
with screen updating off = 0.01 seconds
Add this code to a new module and run first macro to disable... when you are done transposing, "re"enable it by running second macro:
Code:Sub DisableScreenUpdating() Application.ScreenUpdating = False End Sub Sub EnableScreenUpdating() Application.ScreenUpdating = True End Sub
Let me know how it went
@Santoo
I'm not sure I follow but if you want some formula to transpose you can try the one in the attachment.
With it, I used Indirect to be able to specify the range I want to transpose (instead of changing the formula)... it can be used with any range.
I used several columns but you could use rows 1:50, 51:100 and so on
Does this help?