VBA + Short task + Please help!!!

[Christine78]

Hi everybody,

I'm looking for a solution to extend the following code to the whole column F.
Has anyone any idea?


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("C2:E2")) Is Nothing Then
If Application.CountA(Range("C2:E2")) = 3 Then
ReadFromFile_ADO Range("C2").Text, Range("D2").Text, Range("E2"), Range("F2")
End If
End If
End Sub


Thanks a lot,
Christine