Runtime Error 13 .... Type Mismatch

Sub BEQUOTE()

'Step 1 Copy the data

Sheets("QUOTE").Range("A2:H60").Select

Selection.Copy

'Step 2 Open BE QUOTE FORM

Workbooks.Open Filename:="\\NETWORK\shared\PRICING PROGRAMS\Bucket Elevator\BE QUOTE FORM.xls"

'Step 3 Paste the data

ActiveSheet.Paste Destination:=Range("A1")

Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats

'Step 4 Define Path Names and File Name

Dim SaveName1 As String

‘Year, i.e. 2016’

Dim SaveName2 As String

‘Month, i.e. K-OCT’

Dim SaveName3 As String

‘Quote Number, i.e. X123456-XX’

Dim SaveName4 As String

‘Customer Name, i.e. ABC Co.”

SaveName1 = ActiveSheet.Range("C1").Text

‘Evaluates as 2016’

SaveName2 = ActiveSheet.Range("C2").Text

‘Fails to Evaluate’

SaveName3 = ActiveSheet.Range("F7").Text

‘Evaluates as X123456-XX’

SaveName4 = ActiveSheet.Range("B9").Text

‘Evaluates as ABC Co.’
'Step 5 Turn off application alerts

Application.DisplayAlerts = False

'Step 6 Save the newly created workbook

ActiveWorkbook.SaveAs _
Filename:="\\NETWORK\shared\QUOTES\Bucket Elevator\" & SaveName1 \ " & SaveName2\" & SaveName3 & " " & SaveName4 & ".xls"

'Step 7 Turn application alerts back on

Application.DisplayAlerts = True
Application.CutCopyMode = False
ActiveWindow.ActiveCell.Select

End Sub