Cómo pasar texto de cadena de rango dinámico a la cláusula IN de consulta SQL en EXCEL VBA

Tengo los datos de la cadena de rango dinámico, necesito pasar el recorte de la celda y la comilla simple y la coma separadas a la consulta SQL.

A
123ABC345
234CDE678
ZSE123MTR
POR123456

Resultado:

select * from table name where col1 in ('123ABC345','234CDE678','ZSE123MTR','POR123456')

Respuestas a la pregunta(2)

Su respuesta a la pregunta