Need help concatenating in VBA

[rob_sheeds]

Hi,
Im not good with VBA but have managed to get by on googling and this forum.
Can someone help with the FileName, it needs to concatenate 3 cells, with a space in between.
Also I want to be able to call it from any workbook I open...Is having "Public Sub" the way to do this?
Thanks in advance.

Public Sub Unprotect_SaveAs()
'
' Unprotect and Save as .xls Macro
ActiveSheet.Unprotect
ActiveWorkbook.Unprotect
ThisFile = Range("C4" & " " & "C5" & " " & "D4").Value
FileDrive = "R:\EOM GL Reporting\Franchising\P&L's to be uploaded\2012\29082011"
ActiveWorkbook.SaveAs Filename:=ThisFile, FileFormat:=52
End Sub

 

[rob_sheeds]

This seems to work....just need confirmation that this will be able to be used from any workbook?

Public Sub Unprotect_SaveAs()
'
' Unprotect and Save as .xls Macro
Dim MyString As String
ActiveSheet.Unprotect
ActiveWorkbook.Unprotect
MyString = Range("C4") & " " & Range("C5") & " " & Range("D4")
FileDrive = "R:\EOM GL Reporting\Franchising\P&L's to be uploaded\2012\29082011"
ActiveWorkbook.SaveAs FileName:=MyString, FileFormat:=52
End Sub