Hi

I have code which extract information from web. how ever the information from the web is pasted vertically...
but I want to paste this information in horizontally... i;e in A1 column only....

can somebody help on this

Here is the code

Sub Macro1()
'
' Macro1 Macro
'

'
Dim strSearch As String
strSearch = Selection.Offset.Value
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://en.wikipedia.org/wiki/" & strSearch, Destination:=Range("$B$1"))
.Name = "en.wikipedia.org/wiki/" & strSearch
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=15

End Sub


Thanks kiran