Merging VBA into one.

At the end of Sub TimeSheet(), put

SaveAsA1

just before

End Sub

What this does is calls the SaveAsA1 from inside TimeSheet.

Thanks,
Duncan