I would change

strNewFileName = ActiveSheet.Range("a1").Value

To

strNewFileName = "Number " & ActiveSheet.Range("a1").Value

Question 2 (you really should put your separate questions into separate
emails. Many times you will only get a partial answer or if someone
does not know the answer to both questions they will not answer either
question)

Add Error Handling to your code  to catch the error. Something like:

On Error GoTo EH

'Place procedure steps here.

'Handle Errors Gracefully
Exit_EH:
Exit Sub

EH:

Select Case Err.Number
Case 91 'Or whatever error you are getting
On Error Resume Next
Case Else
MsgBox Err.Number & ": " & Err.Description
Resume Exit_EH
End Select