I am writing code for multiple checkboxes. When each one is selected i
grabs a value for a certain cell from another worksheet. I am pastin
the code below. Can someone help me to write a function (I am kind o
new to writing functions) that would take care of this in much mor
precise code? I could just call the function six times. Thanks.


Private Sub cmdCheckBox1_Click()
Select Case cmdCheckBox1.Value
Case Is = True
Sheet1.Range("h15").Value = Sheet2.Range("c2").Value

Case Is = False
Sheet1.Range("h15").Value = Sheet2.Range("b2").Value

End Select

End Sub

Private Sub cmdCheckBox2_Click()
Select Case cmdCheckBox2.Value
Case Is = True
Sheet1.Range("h20").Value = Sheet2.Range("c3").Value

Case Is = False
Sheet1.Range("h20").Value = Sheet2.Range("b3").Value

End Select
End Sub

Private Sub cmdCheckBox3_Click()
Select Case cmdCheckBox3.Value
Case Is = True
Sheet1.Range("h25").Value = Sheet2.Range("c4").Value

Case Is = False
Sheet1.Range("h25").Value = Sheet2.Range("b4").Value

End Select
End Sub

Private Sub cmdCheckBox4_Click()
Select Case cmdCheckBox4.Value
Case Is = True
Sheet1.Range("h35").Value = Sheet2.Range("c5").Value

Case Is = False
Sheet1.Range("h35").Value = Sheet2.Range("b5").Value

End Select
End Sub

Private Sub cmdCheckBox5_Click()
Select Case cmdCheckBox5.Value
Case Is = True
Sheet1.Range("h40").Value = Sheet2.Range("c6").Value

Case Is = False
Sheet1.Range("h40").Value = Sheet2.Range("b6").Value

End Select
End Sub

Private Sub cmdCheckBox6_Click()
Select Case cmdCheckBox6.Value
Case Is = True
Sheet1.Range("h45").Value = Sheet2.Range("c7").Value

Case Is = False
Sheet1.Range("h45").Value = Sheet2.Range("b7").Value

End Select
End Su

--
goeppng
-----------------------------------------------------------------------
goeppngr's Profile: http://www.excelforum.com/member.php...fo&userid=3090
View this thread: http://www.excelforum.com/showthread.php?threadid=51732