Hi All:
Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
I have a cell in "F4" "=now()"
I have copied this cell "F4"
Then "Paste special/Paste - values" into same cell
Which results in say for example "7/9/2006 11:15:00 AM"
Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
from the end.

Macro so far is
Range("F4").Select 'Selects the F4 cell
ActiveCell.X 'What is the command to put where the X is?
Thanks in advance for any help.
Cheers Sharpy

Hi Sharpy,

Try:

'=============>>
Public Sub Tester001()

With Range("F4")
.NumberFormat = "dd/mm/yy"
.Value = Date
End With

End Sub
'<<=============

--
---
Regards,
Norman



"Sharpy" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi All:
> Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
> I have a cell in "F4" "=now()"
> I have copied this cell "F4"
> Then "Paste special/Paste - values" into same cell
> Which results in say for example "7/9/2006 11:15:00 AM"
> Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
> from the end.
>
> Macro so far is
> Range("F4").Select 'Selects the F4 cell
> ActiveCell.X 'What is the command to put where the X is?
> Thanks in advance for any help.
> Cheers Sharpy
>
>

=now() will always give you the date AND time.
=today() will just give you the date.
susan


Norman Jones wrote:
> Hi Sharpy,
>
> Try:
>
> '=============>>
> Public Sub Tester001()
>
> With Range("F4")
> .NumberFormat = "dd/mm/yy"
> .Value = Date
> End With
>
> End Sub
> '<<=============
>
> --
> ---
> Regards,
> Norman
>
>
>
> "Sharpy" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
> > Hi All:
> > Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
> > I have a cell in "F4" "=now()"
> > I have copied this cell "F4"
> > Then "Paste special/Paste - values" into same cell
> > Which results in say for example "7/9/2006 11:15:00 AM"
> > Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
> > from the end.
> >
> > Macro so far is
> > Range("F4").Select 'Selects the F4 cell
> > ActiveCell.X 'What is the command to put where the X is?
> > Thanks in advance for any help.
> > Cheers Sharpy
> >
> >

Thanks Norman that tip worked great
Cheers Sharpy

"Norman Jones" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Hi Sharpy,
>
> Try:
>
> '=============>>
> Public Sub Tester001()
>
> With Range("F4")
> .NumberFormat = "dd/mm/yy"
> .Value = Date
> End With
>
> End Sub
> '<<=============
>
> --
> ---
> Regards,
> Norman
>
>
>
> "Sharpy" <(E-Mail Removed)> wrote in message
> news:(E-Mail Removed)...
>> Hi All:
>> Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
>> I have a cell in "F4" "=now()"
>> I have copied this cell "F4"
>> Then "Paste special/Paste - values" into same cell
>> Which results in say for example "7/9/2006 11:15:00 AM"
>> Now I'm tryin to write a macro to automatically remove the " 11:15:00
>> AM" from the end.
>>
>> Macro so far is
>> Range("F4").Select 'Selects the F4 cell
>> ActiveCell.X 'What is the command to put where the X is?
>> Thanks in advance for any help.
>> Cheers Sharpy
>>
>>
>
>