Sheet names in a drop down
On Friday, November 18, 2016 at 12:15:13 AM UTC-8, Claus Busch wrote:
Hi Howard,
Am Fri, 18 Nov 2016 08:09:30 +0100 schrieb Claus Busch:
your drop down in Sheet1 cell A1. Then try:
sorry, I didn't read carefully.
Try:
Sub Test()
Dim varSh As Variant
Dim LRow As Long, i As Long
Dim myRng As Range
Dim myStr As String
varSh = Split(Sheets("Sheet1").Range("A1").Validation.Form ula1, ";")
For i = LBound(varSh) To UBound(varSh)
With Sheets(varSh(i))
LRow = .Cells(Rows.Count, "D").End(xlUp).Row
Set myRng = .Range("D5:D" & LRow)
'Do stuff
End With
Next
End Sub
Check out what separator you have in the validation list. In german
system it is a semicolon. Perhaps it is a comma in your system.
Regards
Claus B.
Hi Claus.
Actually, the first one is correct for what I want to do. I like the second for a good example of "for all sheets in drop down".
Thank you very much.
Howard
|