objDoc.Bookmarks(shtBookMark.Cells(lngBM, 1)).Range.Text = VBA.Format(shtMain.Cells(lngX, shtMain.Range(shtBookMark.Cells(lngBM, 2)).Column).Value, shtBookMark.Cells(lngBM, 3))
