M
Mike Boynton via OfficeKB.com
I have a calendar that has the days numbers (ie: 1,2,3,4) in a textbox that
is positioned in the upper left hand corner of the cell for the day of the
week it represents. What I am try to do is highlight the cell that belongs
to the current day. I am using the following code to match the textbox to
the current day, but I can't figure out how to match the textbox to the
relative cell.
code follows...
Sub Test
On Error Resume Next
Dim MyDate As Date
Dim MyDay As Integer
Dim MySh As Integer
MyDate = Date
MyDay = Mid(MyDate, 3, 1)
For i = 1 To ActiveSheet.Shapes.Count
With ActiveSheet
ShNm = .Shapes(i).Name
MySh = Mid(ShNm, 10)
If MyDay = MySh Then
'MsgBox "The number is " & MySh
ActiveSheet.Range("G5").Interior.ColorIndex = 20
End If
End With
Next i
End Sub
is positioned in the upper left hand corner of the cell for the day of the
week it represents. What I am try to do is highlight the cell that belongs
to the current day. I am using the following code to match the textbox to
the current day, but I can't figure out how to match the textbox to the
relative cell.
code follows...
Sub Test
On Error Resume Next
Dim MyDate As Date
Dim MyDay As Integer
Dim MySh As Integer
MyDate = Date
MyDay = Mid(MyDate, 3, 1)
For i = 1 To ActiveSheet.Shapes.Count
With ActiveSheet
ShNm = .Shapes(i).Name
MySh = Mid(ShNm, 10)
If MyDay = MySh Then
'MsgBox "The number is " & MySh
ActiveSheet.Range("G5").Interior.ColorIndex = 20
End If
End With
Next i
End Sub