såhär ser koden ut för en nedrullningsbar lista.... vad ska ändras för att det ska funka för alternativknappar igen?


strYta = "<option value=""1"">10 kvm</option>" & vbCrLf & _
"<option value=""2"">15 kvm</option>" & vbCrLf & _
"<option value=""3"">20 kvm</option>" & vbCrLf & _
"<option value=""4"">25 kvm</option>" & vbCrLf & _
"<option value=""5"">30 kvm</option>" & vbCrLf

strYta = replace(strYta, chr(34) & lstStorlek & chr(34), chr(34) & lstStorlek & chr(34) & " selected")