Sub TiedostoJuttu()

    Dim KysyTiedosto As String
    Dim Tarkistus As Boolean
    Dim KokoTiedostoNimi As String
    Dim LadattuWorkbook As Workbook
    Dim TallennettavaWorkbook As Workbook

    KysyTiedosto = Application.InputBox(Prompt:="Avaa oletuskansiosta tiedosto nimeltä:", Title:="Avaa tiedosto", Default:="tiedosto.xlsx")
    KokoTiedostoNimi = CurDir() & "\" & KysyTiedosto

    MsgBox Prompt:=" " & KokoTiedostoNimi

    If Dir(KokoTiedostoNimi) <> "" Then
         Set LadattuWorkbook = Workbooks.Open(KokoTiedostoNimi)
         Set TallennettavaWorkbook = Workbooks.Add

        LadattuWorkbook.Sheets(1).Copy Before:=TallennettavaWorkbook.Sheets(1)

        TallennettavaWorkbook.SaveAs Filename:="uusi.xlsx"
     Else
        MsgBox Prompt:="Tiedostoa " & KysyTiedosto & " ei löytynyt. Tarkista tiedoston nimi sekä sijainti ja yritä uudelleen!", Buttons:=vbExclamation, Title:="Tiedostoa ei löydy"
    End If
 End Sub