you are almost there.

it will hide txtbox if it is satuday,



Private Sub UserForm_Initialize()

If Weekday(Date, vbSaturday) = 1 Then
LblIntMon.Caption = "Weight"
TxtBody.Visible = False

TxtBody.Text = LastWeight
Else
LblIntMon.Caption = ""
TxtBody.Visible = True
TxtBody.Text = LastWeight

End If


--
anilsolipuram
------------------------------------------------------------------------
anilsolipuram's Profile: http://www.excelforum.com/member.php...o&userid=16271
View this thread: http://www.excelforum.com/showthread...hreadid=382216