Hi all

Thanks for the help final code works well as follows

[vba]
'on process to journal save a file as customer name and invoice number
Dim FName As Variant

FName = Sheets("Sales").Range("B8").Text & Sheets("Sales").Range("F17").Text & ".xls"
If FName <> False Then
If FName <> ActiveWorkbook.Name Then
On Error GoTo Error_SaveAs
ActiveWorkbook.SaveAs Filename:=FName
Else

End If
End If
Exit Sub

Error_SaveAs:
MsgBox "error executing SaveAs with filename = " & FName & vbCrLf & _
"no save done", vbCritical

ActiveWorkbook.SaveAs "C:\Finished Invoices"
ActiveWorkbook.Close
Application.ScreenUpdating = True

End Sub 'end of runBtn_Click() function
[/vba]

Well now on to next problem VAT Summary of all invoices by month

well I sure think i will be back

Kindest regards


Darren
South Africa
PS.. do i get a one KB entry for this ??? LOL