Help to tidy up code

[Chewyhairball]

Hi
I have the following code that converts the cell contents in the comments column in 3 different tables, when cell BH3 or BH4 changes. All the tables are on the same sheet.
What I have does work but I am guessing there would be a tidier, more efficient way to write this.
thanks
Rory

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("bh3:bh4")) Is Nothing Then
Range("Results1[[#Data],[Comments]]").Select
Call ConvertToComment

Range("Results2[[#Data],[Comments]]").Select
Call ConvertToComment

Range("Results230[[#Data],[Comments]]").Select
Call ConvertToComment

End If
End Sub

 

[Dan_W]

The key code is contained in the subroutine ConvertToComment, which you've not provided here. I don't see that there is much you can change here without potentially affecting the functionality of the other subroutine.

 

[Eric W]

Maybe:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim TableNames As Variant, t As Variant

    If Intersect(Target, Range("bh3:bh4")) Is Nothing Then Exit Sub

    TableNames = Array("Results1", "Results2", "Results230")
    For Each t In TableNames
        Range(t & "[[#Data],[Comments]]").Select
        Call ConvertToComment
    Next t

End Sub

 

[Chewyhairball]

Thanks for the reply Eric. I will just stay with what I have got.

have a good day