Z are Chr(65-90) M = Chr(77)
> ' Lower Case a-z are Chr(97-122) m = Chr(109)
> On Error Resume Next
> Err.Clear
> ActiveSheet.Name = Mvt & " " & DocDate
> If (Err.Number > 0) Then
> ' Attempt Letters B-M
> For inx = 66 To 77
>
= Mvt & " " & DocDate
If (Err.Number > 0) Then
' Attempt Letters B-M
For inx = 66 To 77
Err.Clear
ActiveSheet.Name = Mvt & " " & DocDate & Chr(inx)
If Err.Number = 0 Then Exit For
Next inx
End If
End Sub
hope this gives you
Sorry, got distracted.
I'll take a look and post something soon.
Paul
- Original Message
> From: JsinSk
> To: MS EXCEL AND VBA MACROS
> Sent: Wed, December 1, 2010 12:24:49 PM
> Subject: Re: $$Excel-Macros$$ Sheet rename based on data in sheet & delete row
>
Paul,
I have a another other question (excluding the previous one listed
here in previous post).
Sometimes the movement number has a single space between the letters
and numbers that make up the flight number. Is there a way to include
this information after the space (Total space will never exc
I'm not as good at VBA as I'd like to be and I especially thank you
for taking the time to explain each step, I found it very helpful!
Pertaining to the unique name problem, I looked but was unable to find
a way to add a letter at the end of the date, starting with B going up
to M (though if I get
I'm not as good at VBA as I'd like to be and I especially thank you
for taking the time to explain each step, I found it very helpful!
Pertaining to the unique name problem, I looked but was unable to find
a way to add a letter at the end of the date, starting with B going up
to M (though if I get
What you describe is easily done.
However, I wouldn't be a very good teacher if I simply GAVE you the answer!!!
;-)
You've described things nicely.
Now think in terms of how you get Excel to go through the steps.
-
1) I need everythi
