My old skates are dead.  At my last skate my right foot was nearly on fire.  I couldn’t skate backwards and, as a goalie, that can really hamper your game.  Some forwards I know haven’t skated backwards since Bush was president (H.W. that is) but for a goalie, being able to come out and then back into the net is essential.

So I made the mental commitment to get ‘new’ skates before my next game, although I wasn’t completely stuck on new-new.  Quality is very important to me but so is my wallet.  I gave up the dream of playing in the NHL when I bought my last set of pads.  It was the first new equipment I’d ever had that wasn’t Pro quality.  Coincidentally, it was also the first equipment I’d had to pay for out of my own pocket!  I have to say, though, after playing with lowly Senior level goal pads I decided that there is a lot of truth to the saying, “you get what you pay for.”  My next set of gloves were back at the Pro level.

With quality in mind but relatively few ducats in my pocket I set out to find the Best Darn Pair of Used Goal Skates in Ontario (now a Broadway musical starring Jason Alexander and Liza Minnelli).  As it turns out, people tend to get rid of their goal skates only after all of the stuffing has been pummeled out of them, kind of like mine.  I looked at the prices of new skates and felt like I could afford to search a little longer.

With a family trip planned for sunny Hamilton, ON coming up I resolved to venture into the goalie’s den of financial horrors that is Kenesky’s Sports, on Barton.  I call it that because I can’t seem to leave the store without dropping a mortgage payment at the front counter.  I figured that They of the Goalie Loft would certainly have a vast array of size 6 used, good quality goal skates.  Well, maybe - I never even looked.

While drooling over the 2007 models of You-can’t-afford-me’s and the equally impressive 2006 I’m-used-but-still-out-of-your-league’s (I’m particular to Vaughn right now), I was approached by Joel, the current owner.  He has the typical “I know everything go ahead and ask me” attitude that you would expect from a sports store owner and, quite frankly, I prefer that to the “I’ll tell you anything to make a sale” attitude you get at the big box sports stores.  I asked for some advice on some of my current equipment, which he freely gave, and then moved on to my true purpose, The Skates.

After a quick discussion on why cheap was not what I was really after - I don’t remember saying the word “cheap” but Joel was definitely driving this convo - he brought out what would be my next Last Skates I’ll Ever Buy.  They had The Smell.  They had The Look.  They even had The Sticker.  I could feel my face getting flush and I started to get excited about putting them on.  I thought, “this must be what it’s like for a woman in a shoe store!”  It was like forbidden fruit - I knew I couldn’t afford them but it wouldn’t hurt to just try them on, would it?  Joel also brought out a dingy pair of used skates that were a little too big (I’ll never know whether or not he actually had any that were my size).  He told me to put one of each on at the same time.  Big mistake.

Alone the used skate on my left foot probably would have felt just fine.  The used Graf was still a top of the line skate and it would have provided me all the protection I needed and likely last me until I needed blades for my walker.  The problem was that the foot in the shiny Rbk Pump felt like it was swimming in a pool of goose down feathers, and laced up with threads from Ken Dryden’s last game worn jersey.  And talk about light!  A balloon filled with clouds would have likely been heavier than the skate on my right felt.

It was clear that he had me hooked.  My only saving grace was that the new skates really were too expensive for me.  I gave the sheepish, “I’ve got to talk to my wife” routine and that was when Joel pulled out the big guns.  Knowing that I’ve made Kenesky’s my first stop in the past and that good customer service breeds future returns Joel whispered, “I can probably do better on the price.”

It goes without saying that shopping with your son or daughter can be trying at times.  Ella, my recently turned four year old, had been a complete angel.  Only near the end of shopping trip did she get antsy and a little impatient.  When mom asked why Ella had her pockets full of jelly beans I said it was because she was such a good girl at the store.  That’s when Ella said, “Isi got new skates, mommy!”  Now I’ve got a pocket full of jelly beans (and new skates, and a new outfit for mommy, somehow).

Yep, it’s true.  It appears that one hand of Microsoft doesn’t know what the other is doing.  I haven’t found a lot of hits on this but apparently both sides of this bug confirm its existence and both claim it’s not their problem.

Symptom:

• Microsoft Excel cannot find the references inside a pivot table that references the same workbook when opened from Internet Explorer

Cause:

• Internet Explorer adds ‘[X]’ to the end of the file name when storing the file in the IE temp folder, where X represents an incrementing integer based on the number of downloads of the same file, and the square brackets are illegal characters for file names in Windows

Steps to reproduce:

• Browsing with Internet Explorer
• Clicking on a link to an Excel spreadsheet with a pivot table in it that references itself
• Clicking on "Open" rather than "Save"

The only solution I could think of was to write a VBA macro to rename the file and reattach all of the pivot tables.  I hope this saves someone else some trouble in the future.  When you think of me, think of me fondly…

( You’ll have to add a reference to Microsoft VBScript Regular Expressions 5.5 or better. )

 Sub Auto_Open()
    
    Dim sFilename As String   ‘ the corrected filename
    Dim oASheet As Worksheet  ‘ the worksheet object
    Dim oPT As PivotTable     ‘ the pivot table object
    Dim sTempSource As String ‘ the pivot table temporary source variable
    Dim sNewRange As String   ‘ the new pivot table source variable
    Dim reg As New RegExp     ‘ a regular expression for matching wildcards
    Dim i As Integer          ‘ looping integer
    Dim j As Integer          ‘ looping integer
    
    ‘ Set a regex to test whether this is a temp spreadsheet from IE.
    ‘ Only a temp spreadsheet from IE will have square brackets in the filename.
    reg.Pattern = "[[\]]"
    
    If reg.Test(ActiveWorkbook.FullName) Then
        ‘ the temp filename has square brackets in it
        
        ‘ just a little message telling the user what’s going on
        MsgBox "Renaming temp file and reattaching pivot tables…"
        
        ‘ The .Name property already has the brackets stripped out of it so
        ‘ we can build the new path using it and the .Path property.
        sFilename = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
        
        ‘ Now we save the file so that the assignment of source data to the
        ‘ pivot tables won’t fail.
        ActiveWorkbook.SaveAs Filename:=sFilename
            
        ‘ The range for the pivot table requires a square bracket
        ‘ just before the file name so we rebuild the path, less the drive letter.
        sNewRange = Replace(ActiveWorkbook.Path, "C:", "") & "\[" & ActiveWorkbook.Name & "]"
        
        ‘ now set the regex for the tail end of the spreadsheet, including the trailing "]"
        reg.IgnoreCase = True
        reg.Pattern = ".*\.xls\]"
        
        ‘ now loop through all of the sheets looking for pivot tables
        For j = 1 To ActiveWorkbook.Worksheets.Count
            Set oASheet = ActiveWorkbook.Worksheets(j)
        
            ‘ now loop through any pivot tables on the worksheet
            For i = 1 To oASheet.PivotTables.Count
                Set oPT = oASheet.PivotTables(i)
            
                sTempSource = oPT.SourceData
                
                ‘ go ahead and replace the invalid path with the new path
                sTempSource = "’" & reg.Replace(sTempSource, sNewRange)
            
                ‘oPT.PivotTableWizard SourceType:=xlDatabase, SourceData:=sTempSource
                
                ‘ assign the new path to the sourcedata property
                oPT.SourceData = sTempSource
                
                ‘ release the object
                Set oPT = Nothing
            Next i
            
            ‘ release the object
            Set oASheet = Nothing
        Next j
        
        ‘ Save the workbook, just to be thorough.
        ‘ Without saving a user would be able to close the workbook without saving
        ‘ and then open the workbook from the
        ‘ recent documents list and have broken pivot tables.
        ActiveWorkbook.Save
    Else
        ‘ Not a spreadsheet with square brackets in the filename
        ‘MsgBox "No renaming required"
    End If

End Sub