BeforeSave. Help needed Before Madness.

[darro]

I have this code. It doesnt work. Presumably I am missing something obvious but I don't know what. Any ideas would br very appreciated.

Private Sub Workbook_BeforeSave (ByVal SaveAsUi As Boolean, Cancel As Boolean)

Dim ARCN As Range
Set ARCN = Range("user_details")
Dim ARCD As Range
Set ARCD = Range("logged")

user = Application.InputBox("name"), ("user details")
If user = False Then
Exit Sub

Else


ARCN = user
ARCD = Date

End If

    MsgBox " user details entered "

Range("A1").Select

End Sub

Any ideas? Thanks for any help.

 

[nightcrawler23]

What is the error u r getting and at what line???

 

[prajul89]

user = Application.InputBox("name", "user details")

Is your InputBox line in red?? If yes then this should help!!!



I think that is the only problem rest everything seems good to me.

 

[darro]

Hi. Thanks for your reply. That is my typing error. That line reads:

user= Application.InputBox("name", "user details")


Any other ideas.

When I save it just saves. No input box appears at all

Thanks for your help

 

[prajul89]

I hope you have this code in you ThisWorkBook Module and not normal Module!!!