Skip worksheet in macro

[PepeTheImpaler]

Hello,
I have this macro and I need help. " If Worksheets.Select = "Vykazy_data" Then End", this part dont work. Pls help with solution. I need to skip one worksheet in this loop

Private Sub CommandButton2_Click()


Dim i As Integer
Dim xTCount As Variant
Dim xWs As Worksheet


Application.DisplayAlerts = False
ActiveWorkbook.Worksheets("VÝSLEDEK").Delete
Application.DisplayAlerts = True
On Error Resume Next
LInput:
xTCount = Application.InputBox("počet řádků v hlavičce", "", "1")
If TypeName(xTCount) = "Boolean" Then Exit Sub
If Not IsNumeric(xTCount) Then
MsgBox "Napiš číslo"
GoTo LInput
End If
Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
xWs.Name = "VÝSLEDEK"
Worksheets(1).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")




For i = 1 To Worksheets.Count


If Worksheets.Select = "Vykazy_data" Then
End
End If
Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)


Next





End Sub

 

[Joe4]

Re: Help pls with skip worksheet in macro

Welcome to the Board!

You would want something like:

[COLOR=#333333]For i = 1 To Worksheets.Count[/COLOR]
[COLOR=#333333]    If Sheets(i).Name <> "Vykazy_data" Then
        ...continue on with rest of code here
    End If
Next i[/COLOR]

This basically skips over that needs (no reason for and "End", only do the stuff in the IF ... THEN block if the name of the sheet is NOT the one listed).

 

[PepeTheImpaler]

Re: Help pls with skip worksheet in macro

Thanks for welcoming.
I am so happy to be here.

You are so helpfull mate, thank you for solution, working perfectly.

 

[Joe4]

Re: Help pls with skip worksheet in macro

You are welcome.
Glad I was able to help!