Hi,

I have recorded a basic Macro to import results from an internet site. (as
follows)

With Sheets("D.McDonald").Select
Cells.Select
Selection.ClearContents
With Activesheet.QueryTables.Add(Connection:= _
"URL;http://www.soccerbase.com/refs2.sd?refid=267&seasonid=137",
Destination _
:=Range("A1"))
.Name = "refs2.sd?refid=267&seasonid=137_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "5"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False

End With
End With

i have a problem with soccer results such as 2-1 showing as 02-Jan. Can I
add some code to rectify this problem?

Many thanks,

Jobber