Private Sub Workbook_Open() Msgbox "Welcome" End Sub
Private Sub CommandButton1_Click()
Dim i As Integer, blnFound As Boolean
y = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
With ThisWorkbook
For j = 1 To y
blnFound = False
For i = 1 To .Sheets.Count
If .Sheets(i).Name = Sheet1.Range("a" & j).Value Then
blnFound = True
MsgBox "sheet: " & .Sheets(i).Name & " ready"
End If
Next i
If blnFound = False Then
.Sheets.Add After:=Sheets(Sheets.Count)
With ActiveSheet
.Name = Sheet1.Range("a" & j).Value
End With
End If
Next j
End With
Sheet1.Select
End Sub
.png "min18")
کامنت