That would be![]()
Sheets("SheetNameHere").Activate
That would be![]()
Sheets("SheetNameHere").Activate
1N73LL1G3NC3 15 7H3 4B1L17Y 70 4D4P7 70 CH4NG3 - 573PH3N H4WK1NG
You don't have to add Rep if I have helped you out (but it would be nice), but please mark the thread as SOLVED if your issue is resolved.
Tom
If I'm not mistaken, that will activate the "Home" sheet whether they create a new worksheet or not, right? If I'm correct, I only want it to remain on the "Home" sheet if they cancel the Input Box for a new asset. Here's what my code now looks like. I apologize for posting incorrectly the first time. It's been a while since I've been on here. I'm also attempting to attach a screenshot so you can get a visual of this workbook. It ends up being several worksheets, all summarized on the "Home" sheet. If they select Cancel on the Input Box, I want them to stay right there on the Home sheet. By the way, this workbook supports multiple ongoing projects in the TX area, so extra thanks for the help!
ScreenShot_Rentals.PNG
![]()
'Create new tab - copy "Blank_Form" template Sub NewTab() Application.ScreenUpdating = False Application.DisplayAlerts = False Dim sName As String Dim wks As Worksheet Sheets("Blank_Form").Visible = True Worksheets("Blank_Form").Copy After:=Sheets(Worksheets.Count) Set wks = ActiveSheet Do While sName <> wks.Name sName = Application.InputBox _ (Prompt:="Enter Asset Number. Numbers Only, No Letters") On Error Resume Next wks.Name = sName Range("E2") = sName On Error GoTo 0 Loop Set wks = Nothing On Error Resume Next Sheets("False").Delete Sheets("Blank_Form").Visible = xlSheetVeryHidden Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
Last edited by Kenny Blackwell; 08-27-2015 at 12:05 PM.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks