I have a piece of long winded code which saves word files to a folder

Dim strNameOC As String
strNameOC = (Range("E" & i).Value & Range("F" & i).Value)

appWD.ActiveDocument.SaveAs Filename:="Y:\...\...\...\" & strNameOC & ".docx"

if the file name already exists then an error occurs. (i know how to overwrite/ignor that but it overwrites files i want)

What i want to do is save the file as: strNameOC & version whatever1,2 etc.

There is a whole bunch of code before and after this so i really need to know how to save to a new filename without overwriting or breaking the code.

I would be real gratefull for the help!