J
Janine
Hi,
I have a code, obviously! anyway i am trying to run it but i keep
coming back with compile error sub or functions not defined.
Here is the code
Sub Start()
abort_op = False
'Sheets(1).Activate
Application.StatusBar = ""
UserForm2.Show
Application.Wait Now + TimeValue("00:00:02")
Sheets(1).Select
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Dim LR As Long
Dim LC As Long
Dim i As Long
Dim Rw As Long
Sheets(1).Range("B2", Range("B65536").End(xlUp)).Select
Rw = Selection.Rows.Count 'Determine last used Row in column
For i = 2 To (Rw + 1)
Sheets(1).Select
Application.StatusBar = "Checking for existing Clients and Creating
New Client Sheets "
ROWNO = i
If Cells(i, 2).Value <> vbNullString Then
Cells(i, 2).Value = Replace(Cells(i, 2).Value, "/", "_")
Checksheet = Cells(i, 2).Value
Call AddSheetWithNameCheckIfExists
Else
End If
Application.StatusBar = "Checking for existing Clients and Creating
New Client Sheets " & i & " of " & Rw + 1
Next i
When i debug the formula it highlights replace and now i am stuck! If
anyone can help pleas let me know.
thank you Janine
I have a code, obviously! anyway i am trying to run it but i keep
coming back with compile error sub or functions not defined.
Here is the code
Sub Start()
abort_op = False
'Sheets(1).Activate
Application.StatusBar = ""
UserForm2.Show
Application.Wait Now + TimeValue("00:00:02")
Sheets(1).Select
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Dim LR As Long
Dim LC As Long
Dim i As Long
Dim Rw As Long
Sheets(1).Range("B2", Range("B65536").End(xlUp)).Select
Rw = Selection.Rows.Count 'Determine last used Row in column
For i = 2 To (Rw + 1)
Sheets(1).Select
Application.StatusBar = "Checking for existing Clients and Creating
New Client Sheets "
ROWNO = i
If Cells(i, 2).Value <> vbNullString Then
Cells(i, 2).Value = Replace(Cells(i, 2).Value, "/", "_")
Checksheet = Cells(i, 2).Value
Call AddSheetWithNameCheckIfExists
Else
End If
Application.StatusBar = "Checking for existing Clients and Creating
New Client Sheets " & i & " of " & Rw + 1
Next i
When i debug the formula it highlights replace and now i am stuck! If
anyone can help pleas let me know.
thank you Janine