V
Vacuum Sealed
Hi All
I have this exact code structure working fine in another WB, same system,
same (Almost) everything.
Difference in this version is that the value in Cell [B2] is from a
DataValidated dropbox...
Will I need to do something different this time around.
Sub My_AutoMagic_Btn()
Dim aCell As Range
Sheets("Run Setup").Select
Set aCell = [B2]
If Not aCell.Value Is Nothing Then
Select Case True
Case aCell.Value = "Bray"
Sheets("Bray").Select
Case aCell.Value = "Burn"
Sheets("Burn").Select
Case aCell.Value = "Cool"
Sheets("Cool").Select
Case aCell.Value = "Morn"
Sheets("Morn").Select
Case aCell.Value = "Oak"
Sheets("Oak").Select
Case aCell.Value = "Pres"
Sheets("Pres").Select
End Select
End If
TIA
Mick
I have this exact code structure working fine in another WB, same system,
same (Almost) everything.
Difference in this version is that the value in Cell [B2] is from a
DataValidated dropbox...
Will I need to do something different this time around.
Sub My_AutoMagic_Btn()
Dim aCell As Range
Sheets("Run Setup").Select
Set aCell = [B2]
If Not aCell.Value Is Nothing Then
Select Case True
Case aCell.Value = "Bray"
Sheets("Bray").Select
Case aCell.Value = "Burn"
Sheets("Burn").Select
Case aCell.Value = "Cool"
Sheets("Cool").Select
Case aCell.Value = "Morn"
Sheets("Morn").Select
Case aCell.Value = "Oak"
Sheets("Oak").Select
Case aCell.Value = "Pres"
Sheets("Pres").Select
End Select
End If
TIA
Mick