ActivePresentation.SlideMaster.Shapes("Counter").TextFrame.TextRange.Text = "£" & Format(CStr(CountNo), "00.00")