I am a macro to do a save as.

Code

Sub savesheet()


Application.ScreenUpdating = True
Dim wb As Workbook
Application.ScreenUpdating = False
ActiveSheet.Copy

Set wb = ActiveWorkbook
Application.ScreenUpdating = True
sFilename = "C:\TimeSheet\" & Format(Range("h12").Value,
"mm-dd-yy Job# " & ActiveSheet.Range("h2").Value & " " &
Range("b6").Value)
ans = MsgBox("Save file as " & sFilename)

If ans = vbOK Then
With wb

ActiveSheet.Shapes("Button 2").Select
Selection.Delete

.SaveAs sFilename
.Close False
End With
Application.ScreenUpdating = True
End If
End Sub


Cell "h12" is a date
Cell "h2" is a 6 digit #
Cell "b6" is my name


The problem is with my name. Brian Arnold. When I run the macro my
name comes back "Bria0 Ar0ol1"

Please Help