Advertisement
Guest User

Untitled

a guest
Jun 20th, 2019
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.60 KB | None | 0 0
  1. Worksheets("Overview").Activate 'activate worksheet Overview
  2. currentdate = ActiveSheet.Cells(H5) 'select date value
  3.  
  4. For Each ws In Worksheets 'loop over every worksheet except the Overview sheet
  5. If ws.Name = fruit Then 'crossreference name worksheet with fruit in Overview sheet
  6. ws.Activate 'activating the selected worksheet
  7. If ws.Range("A1:A365") = currentdate Then 'looking for the correct date in the selcted worksheet
  8. fruit = ws.Name
  9. Next ws
  10.  
  11. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement