<userform name>.<checkbox name>.Value
'example If formHome.chkActiveOnly.Value = True Then MsgBox "User has checked the box" Else MsgBox "User has not checked the box" End If
Advertisements
<userform name>.<checkbox name>.Value
'example If formHome.chkActiveOnly.Value = True Then MsgBox "User has checked the box" Else MsgBox "User has not checked the box" End If
Selection.address
'example Range(“A3:B5”).Select MsgBox Selection.Address
Dim cell As Range For Each cell in Selection ‘your code here Next Cell
To select a single cell
Range("<Cell Value>").Select (ex) Range("A1").Select (ex) Range("C3").Select
To select a continuous range
Range("<Cell Value>").Select (ex) Range("A1:B4").Select (ex) Range("C3:F400").Select
To select multiple non-continuous ranges
Range("<Cell Value>, <Cell Value>").Select (ex) Range("A1:E3, H2:H44").Select (ex) Range("C3:D4, Y3:Y4").Select
To select down to the 1st empty cell
Range(Selection, Selection.End(xlDown)).Select![]()