Excel Forum

Code: Select all

Sub opennew()
Dim Name As String
       Name = Sheets("MAIN").Range("E17")
       If Name = ActiveCell.Value Then
      Sheets(Name).Select
    ActiveWindow.SelectedSheets.PrintPreview
    Sheets("main").Select
    Else
         MsgBox " No.. sheetName´"
         End If
End Su

Code: Select all

Sub LoopSheets()
Dim WSName As String, Found As Boolean
Found = False
WSName = Sheets("MAIN").Range("E17").Value
For i = 1 To ActiveWorkbook.Sheets.Count
    If UCase(WSName) = UCase(ActiveWorkbook.Sheets(i).Name) Then
        Sheets(i).Activate
        ActiveSheet.PrintPreview
        Found = True
        Exit For
        Else
        Found = False
    End If
Next i
If Found = False Then
    MsgBox "No Found: " & Sheets("MAIN").Range("E17")
    'Else
    'MsgBox "Found: " & Sheets("MAIN").Range("E17")
End If
End Sub