Dynamic Drop downs

So you want a color selection based on a product listing…

Private Sub Worksheet_Change(ByVal Target As Range)

This sheet has the product selection in column C (3)

'If Target.Address = "$B$2" Then
If Target.Column = 3 Then

Dim sProduct As String, sFilter As String
sProduct = Target.Value

We’re going to check the Color sheet for the product code – there’s not very many rows of products in this example – only rows 2 to 5 hold the product types.

Product Name look up reference column

For iRow = 2 To 6
If Sheets("Color").Range("U" & CStr(iRow)).Value = sProduct Then
sFilter = Sheets("Color").Range("V" & CStr(iRow)).Value
sFilter = "=OFFSET(Color!$" & sFilter & "$2,0,0,COUNTA(Color!$" & sFilter & ":$" & sFilter & ")-1,1)"
End If
Next iRow

Next we delete and recreate the data validation lists based on the filter we just created looking up the products.

Range("F" & Target.Row).Validation.Delete
Range("G" & Target.Row).Validation.Delete
If Len(sFilter) > 0 Then
If sProduct = "Add-On" Then
Range("F" & Target.Row).Validation.Add xlValidateList, , , sFilter
Range("F" & Target.Row).Validation.Add xlValidateList, , , "=Color!$D$2:$D$3"
Range("G" & Target.Row).Validation.Add xlValidateList, , , sFilter
End If
End If

End If

End Sub

Chicken wraps

Instapot 2 chicken breasts, plain. 

Shred into a plastic container and toss with about 2 tbsp BBQ sauce ( we like kraft garlic and more sauce isn’t a bad thing) 

Once cooled place in the centre of your favorite wrap with shredded mozzarella, a squirt of bacon ranch dressing and a handful of spinach. 

Panini press or grill until cheese is melted. 

Cut into pin wheels. 


1/2 cup softened butter
1/2 cup  brown sugar

1/4 cup White granulated sugar

1 egg

1/4 tsp vanilla extract

1 1/2 cup flour

1/2 tsp baking soda

1/2 cup 3.25% milk

1/2 of a 390g bag of mini chocolate chips
Preheat oven to 375
In a large bowl, using an electric mixer, beat butter, brown sugar, sugar and vanilla extract until fluffy. Beat in egg. Add flour, baking soda and milk and stir with a wooden spoon. Add chocolate chips. 

Bake, one sheet at a time, for 10 to 15 min or until golden around the edges and set in the centre. Let cool on sheets for 2 min, then transfer to racks to cool.
Made 4 dozen with a cookie scoop 

Hamburger breakfast 

This one would have worked better with a little more store bought. 

Take your favorite hamburger patty (I made some hamburger rings so it looks messy)

 Cut out the centre to leave a ring (I think it would be better to do this after they’re partially cooked)

Pan fry until almost cooked – use a lid to cook more evenly 

Drop an egg in the centre

Cook egg

Serve like hamburger – yup cheese works here. 

I also should have thawed hamburger buns for this one. 

Edit: store bought burgers fall apart too. 

Snowman Breakfast in a cup

• Preheat oven to 425 ish• Grease muffin tin with soft butter

• Cook 1/2 lb bacon cut in 1/2 to taste
• Pancake cups (makes 7-9)

• 1 1/2 cups all-purpose flour

• 1 1/2 teaspoons baking powder

• 1 teaspoon salt

• 1 tablespoon white sugar

• 1 1/4 cups milk

• 1 egg

• 3 tablespoons butter, melted

• Splash of vanilla
Whisk until smooth and pour into muffin cups until 1/2-3/4 full 
Then used 

• melted butter (2tbsp ish)

• 1/4 c milk

• 3-4 eggs

• grill seasoning (dill, garlic powder, seasoning salt and pepper)

• abt 1/4 cup shredded cheese

• Optional: any other omelette toppings you like
• whip and pour into muffin cups about 3/4 full. 
• Bake until eggs look like omelettes

• Drizzle pancakes with syrup
Serve all together with a side of strawberries and glass of milk

Garlic sticks

1 cup warm water

2 tbsp sugar

1/4 melted butter

1tsp active dry yeast

Mix and wait til it foams

3 cups flour

1 1/2 tsp salt

Mix, kneed, let rise

Roll out and cut into sticks

Brush with melted butter and garlic salt

Bake at 400 for 15 min or until golden

Dip in melted butter with garlic salt 


Work with a folder of files

This is a little more code than I usually want to post, but it all fits together – and isn’t a complete set. 

Public Sub GetSheets()
Dim fd As FileDialog
Dim varRootFolder As Variant
Dim strRootPath As String
Dim strTimeSheetFileName As String
Dim strCompilerFileName As String

strRootPath = ActiveWorkbook.Path
strCompilerFileName = ActiveWorkbook.Name
'Select Root folder

We will use the file dialog to have the user select a folder of data. This requires a reference.
These settings will allow a single folder only and start where the current folder resides.

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
With fd
.Title = "Select a folder to compile"
.AllowMultiSelect = False
.InitialFileName = strRootPath
If .Show = -1 Then

This loop will use the name of the selected folder and add a \

For Each varRootFolder In .SelectedItems
strRootPath = varRootFolder & "\"
Next varRootFolder

End If

End With
Set fd = Nothing

Next we count the Excel files in the selected folder.

'Count all files under Root folder

strSheetFileName = Dir(strRootPath & "*.Xlsx")
Do While strSheetFileName <> ""
If strSheetFileName <> strCompilerFileName Then
FileCount = FileCount + 1
end if
strSheetFileName = Dir()

Go to pasta sauce 

Here’s a simple pasta sauce. 

Brown a pack of ground hamburger

Pour 2 cans of tomato sauce over it with 

1 tbsp oregano

1 tsp onion salt

1 tsp garlic powder

1 pinch dried chives

1 tsp seasoning salt 

2 cups frozen veggies (we like corn) 

Simmer until pasta is ready. 

Any left overs store in oven safe container with pasta and cover in cheese