Sábhálann VBA Cluaisíní ina n-aonar le hainmneacha réamhshainithe go páirteach

Tá súil agam go mbeidh duine éigin in ann cabhrú liom puzal a réiteach anseo. Tá leabhar oibre agam le roinnt cluaisíní a bhfuil macra cruthaithe agam dóibh chun gach ceann díobh seo a shábháil mar chomhad VBA féin. Nuair a shábhálfar na comhaid tá an macra deartha chun ainm an chluaisín a úsáid mar aon le luach réamhshainithe agus dáta agus am.

Seo é mo cheist. Níl ach cluaisín amháin agam is mian liom a eisiamh, mar tá coinbhinsiún ainmniúcháin difriúil ag teastáil uaidh ach ní féidir liom a dhéanamh amach conas é a eisiamh ón macra atá agam agus ansin an macra céanna a fháil chun an comhad sin a shábháil le coinbhinsiún ainmniúcháin eile.

Seo a bhfuil agam:

Fo-Bhileoga Oibre PoiblíAsCsv222()
Dim xWs Mar Bhileog Oibre
Dim xDir Mar Teaghrán
Dim fillteán Mar FileDialog
dt = Formáid(CStr(Anois), "YYYYMMDDHHMM")
Socraigh fillteán = Application.FileDialog(msoFileDialogFolderPicker)
Má folder.Show <> -1 Ansin Scoir Fo
xDir = fillteán.SelectedItems(1)
Le haghaidh Gach xW i bhFeidhmchlár.Leabhar Oibre Gníomhach.Bileoga Oibre
xWs.SaveAs xDir & "\" &"US_DGF_" &xWs.Name & "_CARe_" &dt, xlCSV, Logánta:=Fíor
Ar Aghaidh
Fo Deireadh

Is é an rud atá uaim ná go ndéanfar cluaisín darb ainm USCS a shábháil ag baint úsáide as na critéir chéanna ach in ionad "CÚRAM: ní mór é a bheith CARe2 - Díreach an cluaisín seo amháin.

An féidir le haon duine cabhrú le do thoil?