Hi Leith / cremate,

I had already found the error in lack of " " and the code as follows works
Private Sub SaveFile_Click()
'
' SaveFile Macro
'
Dim Dt As Date
Dim Ex As String

Dt = Range("StartDate").Value
Ex = Left("ExIncOp", 2)

        If IsEmpty(Worksheets("Operation").Range("ExIncOp")) Then
    Msg = MsgBox("Please enter TYPE in cell C6 to continue ", vbOKOnly)
        End If
        
        If IsEmpty(Worksheets("Operation").Range("Name")) Then
    Msg = MsgBox("Please enter NAME in cell H6 to continue ", vbOKOnly)
        End If
    
        If IsEmpty(Worksheets("Operation").Range("StartDate")) Then
    Msg = MsgBox("Please enter DATE FROM in cell E10 to continue", vbOKOnly)
        
Exit Sub
        End If

     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range _
     ("Debrief_Folder").Value & "\" & Range("Name"). _
     Value & " " & Format(Dt, "dd-mm-yy") & ".xls", FileFormat:=xlNormal
'     & Range("Ex").Value
    
End Sub
But if I include the highlighted red code as follows 
     ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range _
     ("Debrief_Folder").Value & "\" & Range("Ex").Value & Range("Name"). _
     Value & " " & Format(Dt, "dd-mm-yy") & ".xls", FileFormat:=xlNormal
it fails even if I take the " " from around Ex

Regards