New Post: Adding Labels in Vba in 4.9.3

I would suggest to add some debugging code (with Debug.Writefor example). Right now the code doesn't produce any output if shapefile opening fails. Also there is no check that strLabel = objText.CellValue(6, i) actually returns some text (perhaps there is no 6th field).