>>70
・RowPNの中身が全て""またはEmptyになっていないか。
　Dubug.Printまたはローカルウィンドウでの確認を推奨する。
・リストボックスと言っているが変数はUF6ComboBox1で合っているか。
・RowPNの要素が(0 To 166)ないし(1 To 167)だとDoループがi=168までカウントするのでインデックスエラーになる。
　For文の方が無難そうに思えるのと、ここでOn Error Resume Nextはどうかと感じる。