changing code from using Combobox to optionbuttons

[bakerman]

Why did you change this part ??

    For I = 1 To 3
        If Me("OptionButton" & I) Then Sheets("XFLOW A,XFLOW B,XFLOW C") = Me("OptionButton" & I).Caption
    Next
    'write data to worksheet
    With Sheets("XFLOW A,XFLOW B,XFLOW C")

The purpose of the variable 'whatsheet' is to store the OptionButtons caption so you can use it in the With sheets(whatsheet) to write to the correct sheet.