Wordsearch Creator

This is an Excel/VBA game that creates wordsearch games in either 10*10, 15*15, or 20*20 format. To create a wordsearch, you just need to enter a list of words to use, then click the New Game button. Your new random wordsearch will be displayed as well as a list of words used and

wordsearch4.xlsm
 
 
 
 
 
(0)
125 times
Add to favorites
Office
3/18/2019
E-mail Twitter del.icio.us Digg Facebook
  • Solution to the puzzles
    2 Posts | Last post January 25, 2020
    • Is it possible to add a solution to the puzzles below them?
      
      Maybe with shaded cells behind letters or something?
    • In the newGame subroutines, try this...
      
      For r = 1 To 10
          For c = 1 To 10
              If allcells(r - 1, c - 1).text <> "" Then
                  ActiveSheet.cells(r + 4, c + 5).value = allcells(r - 1, c - 1).text
                  ActiveSheet.cells(r + 4, c + 5).Interior.Color = RGB(210, 220, 235) ' this is the line that changes cell colors
              Else
                  Dim value As Integer
                  value = 65 + Int(26 * Rnd + 1) - 1
                  ActiveSheet.cells(r + 4, c + 5).value = Chr(value)
              End If
          Next c
      Next r
  • Add word list alphabetically
    2 Posts | Last post January 25, 2020
    • Can you add word list in alphabetical order?
    • You can add the word list in any order you like. The create code will work through the list from top to bottom, and words used will be in whatever order you added them.