Get Save As File Name

I Couldn't Get This Code To Work got an out of range error.

Workbooks("Bok1.xls"). Sheets(1).Range("A1") = "Hello"

But I saw Your Point
Used It Like This and it works...

Sub macro1()
Dim wdApp As Object
Set wdApp = CreateObject("excel.application")
wdApp.Visible = True

wdApp.Workbooks.Open "C:ExcelVbaBok1.xls"
wdApp.Sheets("Ark2").Range("B2").Value = "Test"

End Sub

But Is There Any Way To Add a Save As Promt For Bok1.xls

It tried to add lines from this "Test" Macro into "macro1" But again I had Problems with it as it only ends up trying to save Bok2.xls instead of Bok1.xls

Sub Test()

Dim FileIn As String
Dim Fname As String

ChDir ("c:Nei")

I Use This as an Menu for other Word an Excel Documents, and as I'm Opening a New Program For Word I Tought I Would Keep It Similar with Excel.