dim myrange as range dim VarInCol as boolean Me.Hide frmAddVariables.Show If frmAddVariables.redVariable.Value <> "" Then Set myrange = Range(frmAddVariables.redVariable.Value) VarInCol = frmAddVariables.rbtnCol.Value End If frmAddVariables.Hide Me.Show