Guest User

Untitled

a guest
Oct 21st, 2019
80
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Private Function isExistWorkSheet(wbk As Workbook, sheetName As String) As Boolean
  2. Dim ws As Worksheet
  3. isExistWorkSheet = False
  4. For Each ws In wbk.Worksheets
  5. If ws.Name = sheetName Then
  6. isExistWorkSheet = True
  7. Exit For
  8. End If
  9. Next ws
  10. End Function
RAW Paste Data