VBA Macro - Automatic Sorting

[Toncar58]

Hi

Can any help me please. I'm trying to automatically sort a column in alphabetical order using the following code

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("U:U")) Is Nothing Then
Range("IU1").Sort Key1:=Range("U2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

My data is in column "U" ... I used a similar code to automatically sot another worksheet in date order an it works perfectly.

When I first used the "Alphabetical" coding (which is the essence of my plea for help) it worked, but then I had to delete it (stupidly) and when I tried it again, it doesn't work.

Any help will be appreciated.

Toncar

 

[Fluff]

Is there an error message?

 

[Toncar58]

Is there an error message?

Run time error "1004"

 

[Toncar58]

Run time error "1004"

Hope I understood you correctly

 

[Fluff]

The message tells you all you need to know. You have merged cells which are an abomination & should be avoided like the plague. Get rid of them.

 

[Toncar58]

Thanks Fluff .... I am getting rid of the merged cells .... been told before to avoid merged cells ?? ...clearly advent learnt! will let you know once done. In the meantime thanks

 

[Toncar58]

Thanks Fluff .... I am getting rid of the merged cells .... been told before to avoid merged cells ?? ...clearly advent learnt! will let you know once done. In the meantime thanks

Hi Fluff

As always thank you so much .... it works now .... and merged cells are now a thing of the past in my excel journey ... lol
Truly appreciate your help!

 

[Fluff]

Glad to help & thanks for the feedback.