Code:Sub M_snb() For j = 13 To 24 if Me("checkbox" & j) Then Sheets("Schedule").Range(MonthName((j - 4) Mod 12, True) & "_pay").ClearContents Next End Sub
Code:Sub M_snb() For j = 13 To 24 if Me("checkbox" & j) Then Sheets("Schedule").Range(MonthName((j - 4) Mod 12, True) & "_pay").ClearContents Next End Sub
@ snb: bro thanks for the reply on that but that question has been answered although your solution seems shorter.
my previous post however needs a solution...
Last edited by MrBlackd; 10-13-2013 at 10:56 PM.
Bookmarks