Macro to rename workbook

I think you should add .value after your range() when you define your variables, then go:

ActiveWorkbook.saveas Filename:=fcriteria & "_" & TabNam

and put that in whatever step you want to save it.