I am using an Input Box to get Interest Rates from my user. I am having problems getting VB to recognise when a date is a Saturday or a Sunday !
Any ideas how I can amend my code so that if a date is a weekend then simply copy the previous rate rahter than ask for one to be input ??
While Show_Box = True
Sheets("INT RATES").Select
oldval = Range("a9999").End(xlUp)
Range("a9999").End(xlUp).Offset(1, 0).Value = oldval + 1
If oldval + 1 = vbSaturday Or vbSunday Then
ActiveCell.Offset(-1, 1).copy
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
End If
valdat = Worksheets(6).Range("a5").End(xlDown)
' Show the input box.
Response = InputBox("Enter the interest rate for " & valdat, _
"Number Entry", , , 1000)
:puzzled: