Henry - many thanks it solved the problem

Robert

n message , Henry
writes
Robert,

Try

Private Sub Mysub()
With Sheets("Selection")
ActiveWorkbook.SaveAs Filename:= _
.Range("G2").Value & .Range("B2").Value & _
" " & Format(Date, "DD.MM.YY") & ".xls"
End With

End Sub