Copy and insert name on tab

[Maggie]

I already have the macro to copy my worksheet which is:
Sheets("HOEPA Worksheet").Select
Sheets("HOEPA Worksheet").Copy Before:=Sheets(1).

I want to be able to name the tab using a input box but I cant seem to
get it to work. Any suggestions on how to go about this so that when
I hit the button to copy and insert an input box would come and ask to
enter the name of the tab.

Maggie

 

[Guest]

one extra line:

Sub maggie()
Sheets("HOEPA Worksheet").Select
Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
Sheets(1).Name = Application.InputBox("enter tabname", 2)
End Sub

 

[Don Guillett]

And maybe take one out
Sub maggie()
Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
Sheets(1).Name = Application.InputBox("enter tabname", 2)
End Sub

 

[Guest]

I used a learn macro and then made appropriate changes. this works.

Sub Macro2()
'
' Macro2 Macro
' Macro recorded 3/1/2007

'
newname = InputBox("enter sheet name")
Sheets("ABC").Select
Sheets("ABC").Name = newname
End Sub

 

[Maggie]

one extra line:

Sub maggie()
Sheets("HOEPA Worksheet").Select
Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
Sheets(1).Name = Application.InputBox("enter tabname", 2)
End Sub

--
Gary's Student
gsnu200708







- Show quoted text -

Thank you so much it worked! I can't believe it was so simple!

 

[Guest]

Guillett's post is even better.

 

[Maggie]

And maybe take one out
Sub maggie()
Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
Sheets(1).Name = Application.InputBox("enter tabname", 2)
End Sub

--
Don Guillett
SalesAid Software







- Show quoted text -

Once I enter the tab name can I get it to be entered into a specific
cell on that worksheet too. For example the tab names are going to be
loan numbers and on my worksheet there is a field (cell g13) that
needs to be entered for loan number too. I do not know if that is
possible or not.

 

[Don Guillett]

try adding another line. There are other ways to do this.
Sheets(1).range("a1").value=sheets(1).name

End Sub

 

[Maggie]

try adding another line. There are other ways to do this.


Sheets(1).range("a1").value=sheets(1).name

End Sub



--
Don Guillett
SalesAid Software






- Show quoted text -

That worked! Thanks! Is there a limit on the number of tabs that
excel can handle. I have 50-60 loans that need to be input into 50-60
worksheets using the same macros. I have to use excel because that is
what my boss wants. Is that possible?

 

[Don Guillett]

You shouldn't have a problem. But, do you really need each loan to have it
OWN worksheet? Show your layout and I'll bet you can do it on one and then
use filters.

Pls TOP post

 

[Maggie]

Don,
Here is the layout:


Anti-Predatory Lending Worksheet



HOEPA APR SPREAD TEST 1st lien Other lien


Maximum Spread 8 10 Member Name:
Two year Treasury Rate Member Number:
Five year Treasury Rate Borrower Name:
Ten year Treasury Rate Loan Number:
Thirty year Treasury Rate Total Loan Amount: $1,000,000.00
Maximum APR 8 10 Date of Application: Mar-07
Loan APR Type of lien:
Loan Term: 7

Did it Pass the APR Spread Test ? Is there prepaid, single-premium
credit life, credit disability, credit unemployment, or other similar
credit insurance?
Treasury Date: Feb-07 Do the Loan Documents Require Mandatory
Arbitration? (Refer to Mandatory Arbitration tab)
Treasury Term: 5 Is the bank charging prepayment penalties for the
payoff of the loan beyond the first five years of such loan?

HOEPA Points & Fees Test (Paid by the Borrower)

Finance Charges: HUD Series
Origination Fee 801
Discount fee 802
Assumption Fee 807
Flood certificate with Life of Loan 808
Loan Administration Fee 809
Application Fee 810
Rate Lock-in Fee 811
Underwriting Fee 800 Series
Commitment Fee 800 Series
Tax Service 800 Series
PMI 902
Closing/Settlement Fee 1101
Completion Inspection Fee 1300 Series
Construction Draw Fee 1300 Series
Courier Fee 1300 Series
Fax Fee 1300 Series
Final Construction Appraisal Fee 1300 Series
Delivery Fee 1300 Series
Loan Prospector Fee 1300 Series
Wire Fee 1300 Series





Non-Finance Charges:
In-house appraisals 803
Title Insurance / Examination 1108
Credit Life/Disability Premiums 900 Series
Doc Prep Fees





Total Fees: 0.00

Amount Financed (from the TIL disclosure): $1,000,000.00
less total non-finance charges 0.00
"HOEPA" Loan Amount: $1,000,000.00

Total Fees/"HOEPA" Loan Amount: 0.00%

Did it pass the Points & Fees Test ?
Did it pass HOEPA?

This did not turn out too nice I can email it to you if you would
like. I have to have each loan go through this test and be saved.
That is why I need 50-60 tabs. But if you think there is a better way
to filter I am open to suggestions.
Thanks
Maggie