Change position of worksheet

[RicardoB]

Hi!
I´m facing the following problem... I need to change the position of worksheets based on the information of some cells in another worksheet (all the worksheets are in the same file). Is it possible? (ex: if cell A1 is equal to 123, i need to bring one of the worksheets to the first position)
Is it possible to blink the name of a worksheet or paint it based on some cells in another worksheet (all the worksheets are in the same file)?

Thank you for your help again!!
Ricardo.

 

[MickG]

Hi Ricardo
Try one of the following:-

If Sheets("Sheet14").Range("B1") = 123 Then Sheets("Sheet11").Move after:=Sheets(15)

If Range("B1").Value = 123 Then ActiveSheet.Move after:=Sheets(16)

If Range("B1").Value = 123 Then ActiveSheet.Move before:=Sheets(12)

Regards Mick

 

[thomasbeard]

In a new workbook (i.e. with Sheet1-Sheet3), type 123 in cell A1 in Sheet1 and try the following Macro:

Sub move_worksheet()

Dim Sht As Worksheet

If Range("A1") = 123 Then
Set Sht = Sheets("Sheet3")
Sht.Move After:=Sheets(1)
End If

End Sub

 

[RicardoB]

Thank you very much!! I´ll try these tips....