Lowell In the south
Board Regular
- Joined
- Sep 26, 2002
- Messages
- 55
I am trying to get a check box to check a range for the first available blank cell. I then want to call a macro.
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A10:z19").Select 'select a1
Selection.End(xlToRight).Select 'go to last cell to right
ActiveCell.Offset(0, 1).Range("A1").Select 'move1cell to right
End if
End sub
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A10:z19").Select 'select a1
Selection.End(xlToRight).Select 'go to last cell to right
ActiveCell.Offset(0, 1).Range("A1").Select 'move1cell to right
End if
End sub