Como ejecutar formulario que ingresa un valor a celda activa ejecutado desde diferentes hojas

He creado un formulario con un listbox con un buscador y al seleccionarlo y aceptar me pega el valor seleccionado en la celda activa de la hoja "PRES APOYO", hasta ahí todo bien, ahora quiero llamar el mismo formulario desde otra hoja y me pegue ahí el valor el problema es que se me regresa a otra hoja y me pega el valor en un lugar que no es el indicado, quiero ejecutarlos desde la hoja SELECAPU:

Private Sub CommandButton1_Click()
Sheets("PRES_APOYO").Select
ActiveCell = RUBROS.ListBox1.Value
While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Wend
Application.ScreenUpdating = True
End Sub