Hi all
I have a VBA set up for when my web query refreshes. I have posted it below. Whe it refreshes and the data is ifferent, the new value refreshes on the next availavle blank cell. Am I able to change the code slightly so that when the web query refreshes and the data changes, the new value will go in cells from left to right ie to cell b1, then c1 etc.
Thanks in advance
Gemma
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LC As Long
LC = Cells(1, Columns.Count).End(xlToLeft).Column
If Not Intersect(Target, Range("A1:a1")) Is Nothing Then
Application.EnableEvents = False
Range("A1:a1").Copy Cells(1, LC + 1)
Application.EnableEvents = True
End If
End Sub
Bookmarks