What's wrong with my VBA code?

[TmAwesum]

Sub SaveAs()
'
' SaveAs Macro
'

'

If IsEmpty(Range("F3")) Then
MsgBox ("Enter Form Title")
Cancel = True
Exit Sub

End If

ThisFile = Range("f3").Value

ActiveWorkbook.SaveAs Filename:="http://teamsna.us.com/vis/fist/NP/Price Prioritization Form/" & ThisFile & ".xlsm", FileFormat:=52

Application.Quit

End Sub

---
I'm getting a 1004 error "Document Not Saved" and it's highlighting the code in red

 

[xenou]

I'm not sure you can save a filename using http:// blah blah blah - that's a protocol, not a filepath ...

ξ

 

[bensonsearch]

Hi,
I dont beleive windows allows most of those charactors to be a file name, try just making a blank excel file on your desktop normally with the filename and see if it accepts it