Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub replaceDaysOfWeek()
- '
- ' replaceDaysOfWeek Macro
- ' Replace day identifiers (0-6) with day labels (Sun-Sat)
- '
- Cells.Replace What:="0", Replacement:="Sun", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="1", Replacement:="Mon", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="2", Replacement:="Tue", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="3", Replacement:="Wed", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="4", Replacement:="Thu", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="5", Replacement:="Fri", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- Cells.Replace What:="6", Replacement:="Sat", LookAt:=xlWhole, _
- SearchOrder:=xlByColumns, MatchCase:=False
- End Sub
Add Comment
Please, Sign In to add comment