I figured out my error with my previous post! But I'm trying to do is
this:
On one sheet ("Summary of Alternatives"), Cell G37 is a number by
which I will unhide a set of 2 sheets at a time. The first of these
two sheets will always start with "PerformanceAlt" and the second of
the two will always start with "IntialCostAlt".
But what I still need to do is rename each sheet: All the unhidden
"PerformanceAlt" sheets should be renamed "Performance Alt" + B2 (of
the unhidden sheet) and all the unhidden "InitialCostAlt" sheets
renamed "InitialCost Alt" + H3 (of the unhidden sheet).
Send help please!!
Thank you all so much!
April
Sub UnHideAlts()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim PerfAlt As Range
Dim i As Long
Set wbBook = ThisWorkbook
Set wsAltNo = wbBook.Worksheets("Summary of Alternatives")
With wsAltNo
Set PerfAlt = .Range("G37")
End With
If PerfAlt.Value = 0 Or IsEmpty(PerfAlt.Value) Then
MsgBox "You have developed no VA Alternatives", vbInformation
Exit Sub
End If
For i = 1 To PerfAlt.Value
wbBook.Worksheets("PerformanceAlt" & i).Visible = True
wbBook.Worksheets("InitialCostAlt" & i).Visible = True
Next i
End Sub
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
