Macro pause and imput box

[MarkReddell]

Hello Message Board!!! I need help with a macro pause with an imput box with that entry going into B4. Can anyone help with this? Code is below! THANX!!!


(Sub SAVE_FILE_AS_CUSTOMER_NAME()

Application.ExecuteExcel4Macro "show.toolbar(""Ribbon"",True)"
MsgBox ("This File is Being Saved in the Customer's Name & to the MSN SkyDrive Web-site In The Business Folder!")
ActiveWorkbook.SaveAs Filename:="https://ptkmnm.docs.live.net/a7f2fe19067884e3/BUSINESS/" & Sheets("LOAN SCENARIOS").Range("BA1").Value & ".xlsm"
If Len(Range("B4")) = 0 Then
Application.Goto Reference:="R4C2"
MyVar = InputBox("Enter the Customer(s) Name")
Else
ActiveWorkbook.SaveAs Filename:="https://ptkmnm.docs.live.net/a7f2fe19067884e3/BUSINESS/" & Sheets("LOAN SCENARIOS").Range("B4").Value & ".xlsm"
End If
End Sub)

 

[bensonsearch]

Hi,
A input box would pause the code until that box is dealt with because they are opened modal.

The only reason this would not be working is your if statement my not be firing

 

[MarkReddell]

THANX 4 YOUR REPLY!!! MY CODE WORX OK EXEPT THAT MY ENTRY INTO THE IMPUT BOX DOESN'T GO INTO CELL "B4". IT GOES NOWHERE ON MY WORKSHEET!!! ANY SUGGESTIONS???? THANX AGAIN! Mark@Reddell.Com

 

[daverunt]

MyVar just holds the value of the InputBox in memory until the macro ends. You have to add code to put the variable value into a cell.

Range("B4").Value = MyVar

 

[MarkReddell]

Thanx Dave, That worx!!! One question, If I selected "Cancel" on the Imput Box instead of entering in a Customers name, how would I do that without causing the macro 2 debug?

 

[daverunt]

I generally use:

'Exits the sub if you don't enter a value or Cancel
MyVar = InputBox("Enter the Customer(s) Name")
If MyVar = False Or MyVar = "" Then
     Exit Sub
    Else
 
ActiveWorkbook.SaveAs Filename:="[URL="https://ptkmnm.docs.live.net/a7f2fe19067884e3/BUSINESS/"][COLOR=#304c6c]https://ptkmnm.docs.live.net/a7f2fe19067884e3/BUSINESS/[/COLOR][/URL]" & Sheets("LOAN SCENARIOS").Range("B4").Value & ".xlsm"
End If
 
End If

 

[MarkReddell]

Thanx Dave, Good Call!!! That worx perfectly!!! God's Blessings on the U & Family & Merry CHRIST-mas!!!!

 

[daverunt]

Thanks - you too.