removing characters at end to save sheet based off cells in the sheet

[B-Man]

I currently use this code below to grab data from my sheet to save the file. sometimes though C4 doesn't have 6 characters at the end I need to remove.
Is there a formula that will remove all the characters after the last letter... ie numbers, period and %? Sometimes there is no numbers or letter or they can change from a space and 3 characters to a space and 5 characters
ie. "2020 Simon 100%" vs "2020 Simon 80%" vs "2020 Simon 60.5%"

If answer = vbYes Then
thisfile = ThisWorkbook.Path & Application.PathSeparator & "Batch " & Range("C3").Value & " (" & Left(Range("C4"), Len(Range("C4")) - 6) & ") " & Range("c5").Value & " L"
ActiveWorkbook.SaveAs Filename:=thisfile
End If

 

[MARK858]

In your examples you are removing everything after the last space, are there any times when this isn't the case?

 

[rollis13]

Something like this will trim C4 to the last letter:

For x = Len(Range("C4")) To 1 Step -1
    If Mid(Range("C4"), x, 1) Like "[A-Za-z]" Then name = Left(Range("C4"), x): Exit For
Next x
If answer = vbYes Then
    thisfile = ThisWorkbook.Path & Application.PathSeparator & "Batch " & Range("C3").Value & " (" & name & ") " & Range("C5").Value & " L"
    ActiveWorkbook.SaveAs Filename:=thisfile
End If

 

[B-Man]

Something like this will trim C4 to the last letter:

For x = Len(Range("C4")) To 1 Step -1
    If Mid(Range("C4"), x, 1) Like "[A-Za-z]" Then name = Left(Range("C4"), x): Exit For
Next x
If answer = vbYes Then
    thisfile = ThisWorkbook.Path & Application.PathSeparator & "Batch " & Range("C3").Value & " (" & name & ") " & Range("C5").Value & " L"
    ActiveWorkbook.SaveAs Filename:=thisfile
End If

Thanks

I moved this line to the top of the code

If answer = vbYes Then

and had to add

dim Name as String

. Works perfectly. Cheers!

 

[rollis13]

Yep, I left you the homework .
Thanks for the positive feedback , glad having been of some help.