Hello,
Does any one knows why the following macro not running;
sub test()

Dim a

a = Selection ' The is the selection in sheet


' where web address is given

Sheets("Sheet2").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = a
With Selection.QueryTable.add(Connection:=a)

WebSelectionType = xlAllTables
WebFormatting = xlWebFormattingNone
WebPreFormattedTextToColumns = True
WebConsecutiveDelimitersAsOne = True
WebSingleBlockTextImport = False
WebDisableDateRecognition = False
Refresh BackgroundQuery:=False
End sub


regardsImran