cav~firez22
Well-known Member
- Joined
- Jun 21, 2006
- Messages
- 543
Hi everyone,
Could someone help me get this code ....
Sub TESTTY()
Dim ws As Worksheet
'Loop through all worksheets
For Each ws In ActiveWorkbook.Worksheets
'Do this for all sheets except these sheets
If ws.Name = "namedranges" Then
'Do Nothing
Else
End If
Next ws
End Sub
Is that understandable?
If so, could someone please help me? i have been playing with the record, but its not working to my advantage.
Thanx much
Could someone help me get this code ....
Sub TESTTY()
Dim ws As Worksheet
'Loop through all worksheets
For Each ws In ActiveWorkbook.Worksheets
'Do this for all sheets except these sheets
If ws.Name = "namedranges" Then
'Do Nothing
Else
Code:
start @ row 17. If there is data in Cell A, then in column L = VLOOKUP($c$13,MSTR,9,FALSE)
AND set column L to be data validation, list format. range name is locnam
Column M = VLOOKUP($c$13,MSTR,10,FALSE)
AND set column M to be data validation, list format. range name is deptnam
Column N = VLOOKUP($c$13,MSTR,11,FALSE)
AND set column N is to be data validation, list format. range name is prodnam
If There is no value in A, then next sheet.
End If
Next ws
End Sub
Is that understandable?
If so, could someone please help me? i have been playing with the record, but its not working to my advantage.
Thanx much