Formattering af felt før save

Hej,

Jeg har fået hjælp til at lave en makro knap, der gemmer mit regneark og foreslår et filnavn baseret på en række felter i regnearket. Mit problem er at et af disse felter er et firmanavn og dette kan indeholde tegn som ikke er tilladt i et filnavn.

Er det muligt at formatere dette felt når der gemmes, f.eks. ved at fjerne evt. /\ osv.

Min makro ser således ud:

Public Sub GemSom()
Dim wshNetwork
Set wshNetwork = CreateObject("WScript.Network")
  fileTosave = "H:\kunder\" & Range("B5") & "_" & Range("I2") & "_" & Format(Range("AI5"), "ddmmyyyy") & "_" & Range("AI11")
Flt = "Excel mappe(*.xls),*.xls,"
    Flt = Flt & "Print-filer (*.prn),*.prn,"
    Flt = Flt & "Tekst-filer(*.txt),*.txt"
    Titel = "Gem Bilag Som!"
    Filnavn = Application.GetSaveAsFilename(fileTosave, Flt, 1, Titel)
    If Filnavn = False Then GoTo Afbryd
    If fileTosave <> False Then
    ActiveWorkbook.SaveAs Filnavn
    End If
Afbryd:
End Sub

Det drejer sig om feltet "B5".

/E100