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

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


"Maggie" wrote:

> 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
>
>

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
(E-Mail Removed)
"Gary''s Student" <(E-Mail Removed)> wrote in message
news:8A4040B2-A8F2-48A1-8A92-(E-Mail Removed)...
> 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
>
>
> "Maggie" wrote:
>
>> 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
>>
>>

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" wrote:

> 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
>
>

On Mar 1, 11:25 am, Gary''s Student
<GarysStud...@discussions.microsoft.com> wrote:
> 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
>
>
>
> "Maggie" wrote:
> > 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- Hide quoted text -
>
> - Show quoted text -

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

Guillett's post is even better.
--
Gary''s Student
gsnu200708


"Maggie" wrote:

> On Mar 1, 11:25 am, Gary''s Student
> <GarysStud...@discussions.microsoft.com> wrote:
> > 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
> >
> >
> >
> > "Maggie" wrote:
> > > 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- Hide quoted text -
> >
> > - Show quoted text -
>
> Thank you so much it worked! I can't believe it was so simple!
>
>

On Mar 1, 11:47 am, "Don Guillett" <dguille...@austin.rr.com> wrote:
> 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
> dguille...@austin.rr.com"Gary''s Student" <GarysStud...@discussions.microsoft.com> wrote in message
>
> news:8A4040B2-A8F2-48A1-8A92-(E-Mail Removed)...
>
>
>
> > 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
>
> > "Maggie" wrote:
>
> >> 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- Hide quoted text -
>
> - 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.

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

>> Sub maggie()
>> Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
>> Sheets(1).Name = Application.InputBox("enter tabname", 2)
Sheets(1).range("a1").value=sheets(1).name

End Sub
>>


--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Maggie" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Mar 1, 11:47 am, "Don Guillett" <dguille...@austin.rr.com> wrote:
>> 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
>> dguille...@austin.rr.com"Gary''s Student"
>> <GarysStud...@discussions.microsoft.com> wrote in message
>>
>> news:8A4040B2-A8F2-48A1-8A92-(E-Mail Removed)...
>>
>>
>>
>> > 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
>>
>> > "Maggie" wrote:
>>
>> >> 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- Hide quoted text -
>>
>> - 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.
>

On Mar 1, 5:31 pm, "Don Guillett" <dguille...@austin.rr.com> wrote:
> try adding another line. There are other ways to do this.
>
> >> Sub maggie()
> >> Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
> >> Sheets(1).Name = Application.InputBox("enter tabname", 2)
>
> Sheets(1).range("a1").value=sheets(1).name
>
> End Sub
>
>
>
> --
> Don Guillett
> SalesAid Software
> dguille...@austin.rr.com"Maggie" <schmidt.marga...@gmail.com> wrote in message
>
> news:(E-Mail Removed)...
>
>
>
> > On Mar 1, 11:47 am, "Don Guillett" <dguille...@austin.rr.com> wrote:
> >> 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
> >> dguille...@austin.rr.com"Gary''s Student"
> >> <GarysStud...@discussions.microsoft.com> wrote in message
>
> >>news:8A4040B2-A8F2-48A1-8A92-(E-Mail Removed)...
>
> >> > 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
>
> >> > "Maggie" wrote:
>
> >> >> 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- Hide quoted text -
>
> >> - 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.- Hide quoted text -
>
> - 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?

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
--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Maggie" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> On Mar 1, 5:31 pm, "Don Guillett" <dguille...@austin.rr.com> wrote:
>> try adding another line. There are other ways to do this.
>>
>> >> Sub maggie()
>> >> Sheets("HOEPA Worksheet").Copy Before:=Sheets(1)
>> >> Sheets(1).Name = Application.InputBox("enter tabname", 2)
>>
>> Sheets(1).range("a1").value=sheets(1).name
>>
>> End Sub
>>
>>
>>
>> --
>> Don Guillett
>> SalesAid Software
>> dguille...@austin.rr.com"Maggie" <schmidt.marga...@gmail.com> wrote in
>> message
>>
>> news:(E-Mail Removed)...
>>
>>
>>
>> > On Mar 1, 11:47 am, "Don Guillett" <dguille...@austin.rr.com> wrote:
>> >> 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
>> >> dguille...@austin.rr.com"Gary''s Student"
>> >> <GarysStud...@discussions.microsoft.com> wrote in message
>>
>> >>news:8A4040B2-A8F2-48A1-8A92-(E-Mail Removed)...
>>
>> >> > 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
>>
>> >> > "Maggie" wrote:
>>
>> >> >> 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- Hide quoted text -
>>
>> >> - 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.- Hide quoted text -
>>
>> - 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?
>