Was soll denn diese Zeile:
ActiveCell.Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="In,Out"
Willst du jetzt 1 bis 5 oder "In,Out" ???